fortran goodness

constants.f

Error: Invalid character in name at (1)
constants.f:83.60:

       double precision, parameter :: AMBER_ELECTROSTATIC2 = AMBER_ELECT
                                                            1
Error: Parameter 'amber_elect' at (1) has not been declared or is a variable, which does not reduce to a constant expression
constants.f:86.72:

       double precision, parameter :: INV_AMBER_ELECTROSTATIC = 1.0d0/AM
                                                                        1
Error: Parameter 'am' at (1) has not been declared or is a variable, which does not reduce to a constant expression
constants.f:87.72:

       double precision, parameter :: INV_AMBER_ELECTROSTATIC2 = 1.0d0/A
                                                                        1
Error: Parameter 'a' at (1) has not been declared or is a variable, which does not reduce to a constant expression
constants.f:96.72:

       double precision, parameter :: A2_TO_BOHRS2 = A_TO_BOHRS * A_TO_B
                                                                        1
Error: Parameter 'a_to_b' at (1) has not been declared or is a variable, which does not reduce to a constant expression
constants.f:97.65:

       double precision, parameter :: A3_TO_BOHRS3 = A2_TO_BOHRS2 * A_TO
                                                                 1
Error: Parameter 'a2_to_bohrs2' at (1) has not been declared or is a variable, which does not reduce to a constant expression
constants.f:98.65:

       double precision, parameter :: A4_TO_BOHRS4 = A2_TO_BOHRS2 * A2_T
                                                                 1
Error: Parameter 'a2_to_bohrs2' at (1) has not been declared or is a variable, which does not reduce to a constant expression
constants.f:107.72:

       double precision, parameter :: FOURTH_AU_TO_EV = AU_TO_EV * fourt
                                                                        1
Error: Parameter 'fourt' at (1) has not been declared or is a variable, which does not reduce to a constant expression
constants.f:109.72:

       double precision, parameter :: SXNTH_AU_TO_EV = EIGHTH_AU_TO_EV*h
                                                                        1
Error: Parameter 'h' at (1) has not been declared or is a variable, which does not reduce to a constant expression
constants.f:110.61:

       double precision, parameter :: A2_TO_BOHRS2xAU_TO_EV = A2_TO_BOHR
                                                             1
Error: Parameter 'a2_to_bohr' at (1) has not been declared or is a variable, which does not reduce to a constant expression