hdiff output

r28226/charmm_main.src 2017-01-21 10:33:43.950250000 +0000 r28225/charmm_main.src 2017-01-21 10:33:47.470250000 +0000
670:         CALL FQINIT(COMLYN,COMLEN)670:         CALL FQINIT(COMLYN,COMLEN)
671: ##ELSE671: ##ELSE
672:         CALL WRNDIE(-1,'<CHARMM>','FLUCQ code is not compiled.')672:         CALL WRNDIE(-1,'<CHARMM>','FLUCQ code is not compiled.')
673: ##ENDIF673: ##ENDIF
674:       ELSE IF (WRD.EQ.'FOUR') THEN674:       ELSE IF (WRD.EQ.'FOUR') THEN
675:         CALL PARSE4D(COMLYN, COMLEN)675:         CALL PARSE4D(COMLYN, COMLEN)
676: ##IF FACTS676: ##IF FACTS
677:       ELSE IF (WRD.EQ.'FACT') THEN677:       ELSE IF (WRD.EQ.'FACT') THEN
678:         CALL FCTINI(COMLYN,COMLEN)678:         CALL FCTINI(COMLYN,COMLEN)
679: ##ENDIF679: ##ENDIF
680: C mc929 FACTSMEM implementation 
681: ##IF FACTSMEM 
682:       ELSE IF (WRD.EQ.'FCTM') THEN 
683:         CALL FCTMEMBINI(COMLYN,COMLEN) 
684: ##ENDIF 
685: C mc929 End FACTSMEM implementation 
686:       ELSE IF (WRD.EQ.'GBOR') THEN680:       ELSE IF (WRD.EQ.'GBOR') THEN
687:         CALL Genborn_Set(COMLYN, COMLEN)681:         CALL Genborn_Set(COMLYN, COMLEN)
688: ##IF GBIM682: ##IF GBIM
689:       ELSE IF (WRD.EQ.'GBIM') THEN683:       ELSE IF (WRD.EQ.'GBIM') THEN
690:         CALL SetGBIM(COMLYN, COMLEN)684:         CALL SetGBIM(COMLYN, COMLEN)
691: ##ENDIF !GBIM685: ##ENDIF !GBIM
692: ##IF GBMV686: ##IF GBMV
693:       ELSE IF (WRD.EQ.'GBMV') THEN687:       ELSE IF (WRD.EQ.'GBMV') THEN
694:         CALL GBMV_set(COMLYN, COMLEN)688:         CALL GBMV_set(COMLYN, COMLEN)
695: ##ENDIF !GBMV689: ##ENDIF !GBMV


r28226/energy.src 2017-01-21 10:33:44.598250000 +0000 r28225/energy.src 2017-01-21 10:33:48.098250000 +0000
2396:      &                  HEAP(BNBND(FCT2IL)),HEAP(BNBND(FCT2IB)),2396:      &                  HEAP(BNBND(FCT2IL)),HEAP(BNBND(FCT2IB)),
2397:      &                  NATIM              ,2397:      &                  NATIM              ,
2398:      &                  HEAP(BIMAG(IMBLO)) ,HEAP(BIMAG(IMJNB)) ,2398:      &                  HEAP(BIMAG(IMBLO)) ,HEAP(BIMAG(IMJNB)) ,
2399:      &                  HEAP(BIMAG(IMATTR)),2399:      &                  HEAP(BIMAG(IMATTR)),
2400:      &                  HEAP(BIMAG(FCT3IL)),HEAP(BIMAG(FCT3IB)),2400:      &                  HEAP(BIMAG(FCT3IL)),HEAP(BIMAG(FCT3IB)),
2401:      &                  HEAP(BIMAG(FCT4IL)),HEAP(BIMAG(FCT4IB)))2401:      &                  HEAP(BIMAG(FCT4IL)),HEAP(BIMAG(FCT4IB)))
2402:             CALL timer_stop(T_facts)                         !##NEWTIMER2402:             CALL timer_stop(T_facts)                         !##NEWTIMER
2403:             CALL timer_stop(T_nonbon)                        !##NEWTIMER2403:             CALL timer_stop(T_nonbon)                        !##NEWTIMER
2404:       ENDIF2404:       ENDIF
2405: ##ENDIF2405: ##ENDIF
2406: C mc929 FACTSMEM implementation 
2407: ##IF FACTSMEM 
2408:       IF (FCTMEMBRUN) THEN 
2409:             CALL timer_start(T_nonbon)                       !##NEWTIMER 
2410:             CALL timer_start(T_facts)                        !##NEWTIMER 
2411:             CALL FCTMEMBENE(ETERM(ELEC)        , 
2412:      &                  ETERM(FCTPOL)      , 
2413:      &                  ETERM(FCTNPL)      , 
2414:      &                  NATOM              , 
2415:      &                  HEAP(BNBND(INBLO)) ,HEAP(BNBND(JNB))   , 
2416:      &                  HEAP(BNBND(FCT1IL)),HEAP(BNBND(FCT1IB)), 
2417:      &                  HEAP(BNBND(FCT2IL)),HEAP(BNBND(FCT2IB)), 
2418:      &                  NATIM              , 
2419:      &                  HEAP(BIMAG(IMBLO)) ,HEAP(BIMAG(IMJNB)) , 
2420:      &                  HEAP(BIMAG(IMATTR)), 
2421:      &                  HEAP(BIMAG(FCT3IL)),HEAP(BIMAG(FCT3IB)), 
2422:      &                  HEAP(BIMAG(FCT4IL)),HEAP(BIMAG(FCT4IB))) 
2423:             CALL timer_stop(T_facts)                         !##NEWTIMER 
2424:             CALL timer_stop(T_nonbon)                        !##NEWTIMER 
2425:       ENDIF 
2426: ##ENDIF 
2427: C mc929 End FACTSMEM implementation 
2428: C2406: C
2429: C-----------------------------------------------------------------------2407: C-----------------------------------------------------------------------
2430: ##IF SASAE2408: ##IF SASAE
2431:       IF (QSASA) THEN2409:       IF (QSASA) THEN
2432:             CALL SASENE(NATOM              ,2410:             CALL SASENE(NATOM              ,
2433:      &                  NATIM              ,2411:      &                  NATIM              ,
2434:      &                  HEAP(PSASWBL)      ,HEAP(PSASWNB)     ,2412:      &                  HEAP(PSASWBL)      ,HEAP(PSASWNB)     ,
2435:      &                  HEAP(BNBND(INBLO)) ,HEAP(BNBND(JNB))  ,2413:      &                  HEAP(BNBND(INBLO)) ,HEAP(BNBND(JNB))  ,
2436:      &                  HEAP(BIMAG(IMBLO)) ,HEAP(BIMAG(IMJNB)),2414:      &                  HEAP(BIMAG(IMBLO)) ,HEAP(BIMAG(IMJNB)),
2437:      &                  HEAP(BIMAG(IMATTR)),2415:      &                  HEAP(BIMAG(IMATTR)),


r28226/facts.fcm 2017-01-21 10:33:45.322250000 +0000 r28225/facts.fcm 2017-01-21 10:33:48.698250000 +0000
 93:  93: 
 94:      &               MXFCAB,MXFCIB, 94:      &               MXFCAB,MXFCIB,
 95:  95: 
 96:      &               FCTRUN, 96:      &               FCTRUN,
 97:      &               FCTSFE,FCTSCR, 97:      &               FCTSFE,FCTSCR,
 98:      &               FCTPSL,FCTPIN, 98:      &               FCTPSL,FCTPIN,
 99:      &               FCTPSR, 99:      &               FCTPSR,
100:      &               FCTPAL,FCTPBT,100:      &               FCTPAL,FCTPBT,
101:      &               FCTPVW,101:      &               FCTPVW,
102:      &               FCTPFR102:      &               FCTPFR
103: C mc929 FACTSMEM implementation 
104: ##IF FACTSMEM 
105: 103: 
106:       INTEGER       MAXC_HDGB 
107:       PARAMETER     (MAXC_HDGB=100) 
108:       REAL*8         FCTSCFALL 
109:       REAL*8         CSPL, CSPLS 
110:       REAL*8         ZMINSPL, ZMAXSPL, HSPL 
111:       REAL*8         ZMINSPLS, ZMAXSPLS, HSPLS       
112: C      REAL*8         CSHDGB, ZASHDGB, ZBSHDGB, ZCSHDGB 
113: C      REAL*8         CZBZA3HDGB, ZBZAHDGB, CZCZB3HDGB, ZCZBHDGB, ZB2HDGB 
114:       REAL*8         FCTEPS0,FCTEPSW 
115:       REAL*8         FCTS0,FCTSW 
116:       REAL*8         FCTPCO2, FCTPCO3, FCTPCO4 
117:       LOGICAL        FCTMEMBRUN 
118: C Anionic membrane starts 
119:       LOGICAL        FCTANMRUN 
120:       REAL*8         FCTANCONC,FCTANAPL, FCTANFA,FCTANVAL,FCTANPOS 
121:       REAL*8         FCTANTEMP 
122:       REAL*8         FCTANK 
123:       PARAMETER     (FCTANK = 1.98729D-3) 
124:       REAL*8         FCTANKE0X 
125:       PARAMETER     (FCTANKE0X = 4.79005D-5)  
126:       REAL*8         FCTANKE0NAX 
127:       PARAMETER     (FCTANKE0NAX = 1264.418D0) 
128:       REAL*8         FCTANKAP, FCTANPHI0, FCTANSCD, FCTANKT 
129:       REAL*8         FCTANKTA, FCTANALP       
130: C Anionic membrane ends 
131:  
132:       COMMON /FACTSMEM/ FCTMEMBRUN, 
133:      &               FCTSCFALL(FCTMAT), 
134:      &               CSPL(4,MAXC_HDGB), 
135:      &               CSPLS(4,MAXC_HDGB), 
136:      &               ZMINSPL, ZMAXSPL, HSPL, 
137:      &               ZMINSPLS, ZMAXSPLS, HSPLS, 
138: C     &               CSHDGB, ZASHDGB, ZBSHDGB, ZCSHDGB, 
139: C     &               CZBZA3HDGB, ZBZAHDGB, CZCZB3HDGB, ZCZBHDGB,  
140: C     &               ZB2HDGB, 
141:      &               FCTEPS0, FCTEPSW, 
142:      &               FCTS0, FCTSW, 
143:      &               FCTPCO2, FCTPCO3, FCTPCO4, 
144: C Anionic membrane starts 
145:      &               FCTANMRUN, 
146:      &               FCTANCONC,FCTANAPL, FCTANFA,FCTANVAL,FCTANPOS, 
147:      &               FCTANTEMP, 
148:      &               FCTANKAP, FCTANPHI0, FCTANSCD, FCTANKT, 
149:      &               FCTANKTA, FCTANALP 
150: C Anionic membrane ends 
151:  
152: C mc929 End FACTSMEM implementation 
153:  
154: ##ENDIF 
155: ##IF SAVEFCM104: ##IF SAVEFCM
156:        SAVE /FACTS/105:        SAVE /FACTS/
157: ##ENDIF106: ##ENDIF
158: C mc929 FACTSMEM implementation 
159: ##IF FACTSMEM 
160: ##IF SAVEFCM 
161:        SAVE /FACTSMEM/ 
162: ##ENDIF 
163: ##ENDIF 
164: C mc929 End FACTSMEM implementation 
165: ##ENDIF107: ##ENDIF


r28226/fctmemb.src 2017-01-21 10:33:45.950250000 +0000 r28225/fctmemb.src 2017-01-21 10:33:49.494250000 +0000
  1: CHARMM Element source/misc/fctmemb.src $Revision: 1.0 $  1: svn: E195012: Unable to find repository location for 'svn+ssh://svn.ch.private.cam.ac.uk/groups/wales/trunk/CHARMM35/source/misc/fctmemb.src' in revision 28225
  2: ##IF FACTSMEM 
  3:       SUBROUTINE FCTMEMBINI(COMLYN,COMLEN) 
  4:  
  5: C This routine parses the FACTSMEM commands in the CHARMM input file and 
  6: C initializes FACTSMEM. 
  7: C Author: Martin Carballo Pacheco 
  8: C 
  9: C based on FACTS programmed by:  
 10: C Author: Urs Haberthuer. 
 11: C Modified: Francois Marchand 
 12: C           parallelization 
 13: C           FACTS list space management 
 14: C           Solute-solvent dispersion term 
 15: C 
 16: ##INCLUDE '~/charmm_fcm/impnon.fcm' 
 17: ##INCLUDE '~/charmm_fcm/dimens.fcm' 
 18: ##INCLUDE '~/charmm_fcm/exfunc.fcm' 
 19:  
 20:       CHARACTER*(*) COMLYN 
 21:       INTEGER       COMLEN 
 22:  
 23: ##INCLUDE '~/charmm_fcm/bases.fcm' 
 24: ##INCLUDE '~/charmm_fcm/consta.fcm' 
 25: ##INCLUDE '~/charmm_fcm/coord.fcm' 
 26: ##INCLUDE '~/charmm_fcm/facts.fcm' 
 27: ##INCLUDE '~/charmm_fcm/heap.fcm' 
 28: ##INCLUDE '~/charmm_fcm/image.fcm' 
 29: ##INCLUDE '~/charmm_fcm/inbnd.fcm' 
 30: ##INCLUDE '~/charmm_fcm/number.fcm' 
 31: ##INCLUDE '~/charmm_fcm/param.fcm' 
 32: ##INCLUDE '~/charmm_fcm/psf.fcm' 
 33: ##INCLUDE '~/charmm_fcm/stream.fcm' 
 34: ##IF PARALLEL  
 35: ##INCLUDE '~/charmm_fcm/parallel.fcm' 
 36: ##ENDIF  
 37:    
 38:       REAL*8        FCTEPS 
 39:       REAL*8        FCTAP0,FCTAP1,FCTAP2,FCTAP3 
 40:       REAL*8        FCTBT0,FCTBT1,FCTBT2,FCTBT3 
 41:       REAL*8        FCTRVW(FCTMVW) 
 42:       REAL*8        FCTCSL,FCTCIL 
 43:       REAL*8        FCTCSC(FCTMVW),FCTCIC 
 44:       REAL*8        CUTMAX,FCTSZ 
 45:       REAL*8        FCTKPS 
 46:       REAL*8        FCTSCF(FCTMVW) 
 47:       REAL*8        FCTNPS(FCTMVW) 
 48:       REAL*8        FCTDIF 
 49:       REAL*8        FCTEEL 
 50:       REAL*8        FCTPOL 
 51:       REAL*8        FCTNPL 
 52:  
 53:       REAL*8        FCTVDWK,FCTVDWRHO 
 54:       REAL*8        FCTVDWALPHA(100) 
 55:       REAL*8        FCTVDWEPS,FCTVDWSIG 
 56:       REAL*8        FCTVDWA 
 57:       REAL*8        FCTVDWEPSOT,FCTVDWSIGOT 
 58:       REAL*8        FCTVDWEPSHT,FCTVDWSIGHT 
 59:       REAL*8        FCTVDWEPSOX,FCTVDWSIGOX 
 60:       REAL*8        FCTVDWEPSHX,FCTVDWSIGHX 
 61:  
 62:       CHARACTER*8   FCTVDWEPSOTN,FCTVDWEPSHTN 
 63:  
 64:       INTEGER       FCTCPS,FCTFPS 
 65:       INTEGER       FCTNNV,FCTNAV 
 66:       INTEGER       FCTNST 
 67:       INTEGER       I,J 
 68:       LOGICAL       FCTAVW 
 69:       LOGICAL       FCTAIM 
 70:       LOGICAL       FCTCHO 
 71:       LOGICAL       FCTERR 
 72:       CHARACTER*1   FCTDUM 
 73:  
 74: C Membrane extension ================================= 
 75:  
 76:       INTEGER       UNEPS_HDGB, N_HDGB 
 77:       REAL*8        X_HDGB(300), A_HDGB(300) 
 78:       LOGICAL       QOPEN_HDGB, QFORM_HDGB, QWRITE_HDGB, ERROR_HDGB 
 79:       INTEGER       MAXLEN_HDGB, LENGTH_HDGB 
 80:       PARAMETER     (MAXLEN_HDGB=256) 
 81:       CHARACTER     NAME_HDGB*(MAXLEN_HDGB) 
 82:  
 83:       INTEGER       UNS_HDGB, N_HDGBS 
 84:       REAL*8        X_HDGBS(300), A_HDGBS(300) 
 85:       LOGICAL       QOPEN_HDGBS, QFORM_HDGBS, QWRITE_HDGBS,ERROR_HDGBS 
 86:       INTEGER       LENGTH_HDGBS 
 87:       CHARACTER     NAME_HDGBS*(MAXLEN_HDGB) 
 88:              
 89:       UNEPS_HDGB = GTRMI(COMLYN,COMLEN, 'UNEPS', -1) 
 90:       UNS_HDGB = GTRMI(COMLYN,COMLEN, 'UNS', -1) 
 91: C      CSHDGB = GTRMF(COMLYN,COMLEN,'STO',0.18D0) 
 92: C      ZASHDGB = GTRMF(COMLYN,COMLEN,'ZS',0.5D0) 
 93: C      ZBSHDGB = GTRMF(COMLYN,COMLEN,'ZM',8.5D0) 
 94: C      ZCSHDGB = GTRMF(COMLYN,COMLEN,'ZT',25.D0) 
 95: C Membrane extension ================================= 
 96:  
 97: C Anionic membrane extension ========================== 
 98: C Obtain flag for anionic membrane 
 99:  
100:       FCTANMRUN = (INDXA(COMLYN,COMLEN,'ANIO') .GT. 0) 
101:       FCTANCONC = GTRMF(COMLYN,COMLEN,'SCON',0.1D0) 
102:       FCTANAPL = GTRMF(COMLYN,COMLEN,'APL',70.0D0) 
103:       FCTANFA = GTRMF(COMLYN,COMLEN,'FA',0.2D0) 
104:       FCTANVAL = GTRMF(COMLYN,COMLEN,'VAL',1.0D0) 
105:       FCTANPOS = GTRMF(COMLYN,COMLEN,'APOS',20.D0) 
106:       FCTANTEMP = GTRMF(COMLYN,COMLEN,'ATEM',300.D0) 
107: C Anionic membrane extension ========================== 
108:  
109: C Set the flag to invoke FACTS. 
110:  
111:       FCTMEMBRUN=.TRUE. 
112:  
113: C Obtain the flag for calculating only the screening (FCTSCR) and not 
114: C the solvation (FCTSFE). 
115:  
116:       FCTSCR=(INDXA(COMLYN,COMLEN,'TSCR') .GT. 0) 
117:  
118: C Obtain the flag for printing atomic self terms. 
119:  
120:       FCTPSL=(INDXA(COMLYN,COMLEN,'TPSL') .GT. 0) 
121:  
122: C Obtain the flag for printing screened interaction energies. 
123:  
124:       FCTPIN=(INDXA(COMLYN,COMLEN,'TPIN') .GT. 0) 
125:  
126: C Obtain the flag for printing atomic solvent accessible surface areas. 
127:  
128:       FCTPSR=(INDXA(COMLYN,COMLEN,'TPSR') .GT. 0) 
129:  
130: C Obtain the flag for printing alpha. 
131:  
132:       FCTPAL=(INDXA(COMLYN,COMLEN,'TPAL') .GT. 0) 
133:  
134: C Obtain the flag for printing beta. 
135:  
136:       FCTPBT=(INDXA(COMLYN,COMLEN,'TPBT') .GT. 0) 
137:  
138: C Obtain the flag for printing VdW 
139:  
140:       FCTPVW=(INDXA(COMLYN,COMLEN,'TPVW') .GT. 0) 
141:  
142: C Obtain the flag for printing forces. 
143:  
144:       FCTPFR=(INDXA(COMLYN,COMLEN,'TPFR') .GT. 0) 
145:  
146: C Obtain the flag for adding non native van der Waals radii. 
147:  
148:       FCTAVW=(INDXA(COMLYN,COMLEN,'TAVW') .GT. 0) 
149:  
150: C Obtain the flag for setting up the image lists. 
151:  
152:       FCTAIM=(INDXA(COMLYN,COMLEN,'TAIM') .GT. 0) 
153:  
154: C Obtain the CHARMM parameter set. 
155:  
156:       FCTCPS=GTRMI(COMLYN,COMLEN,'TCPS',19) 
157:  
158: C Obtain the dielectric constant of the macromolecular region, i.e., the 
159: C internal dielectric constant. 
160:  
161:       FCTEPS=GTRMF(COMLYN,COMLEN,'TEPS',ONE) 
162:  
163: C Obtain the FACTS parameter set number. 
164: C FM: set the default to 3 
165:       FCTFPS=GTRMI(COMLYN,COMLEN,'TFPS',3) 
166:  
167: C Obtain alpha. 
168:  
169:       FCTAP0=GTRMF(COMLYN,COMLEN,'GAMM',1.5D-02) 
170:       FCTAP1=GTRMF(COMLYN,COMLEN,'TAP1',ZERO) 
171:       FCTAP2=GTRMF(COMLYN,COMLEN,'TAP2',ZERO) 
172:       FCTAP3=GTRMF(COMLYN,COMLEN,'TAP3',ZERO) 
173:  
174: C Obtain beta. 
175:  
176:       FCTBT0=GTRMF(COMLYN,COMLEN,'TBT0',ZERO) 
177:       FCTBT1=GTRMF(COMLYN,COMLEN,'TBT1',ZERO) 
178:       FCTBT2=GTRMF(COMLYN,COMLEN,'TBT2',ZERO) 
179:       FCTBT3=GTRMF(COMLYN,COMLEN,'TBT3',ZERO) 
180:  
181: C Set the flag for calculating the solvation (FCTSFE) and not the 
182: C screening (FCTSCR). 
183:  
184:       IF (FCTSCR) THEN 
185:          FCTSFE=.FALSE. 
186:       ELSE 
187:          FCTSFE=.TRUE. 
188:       ENDIF 
189:  
190: C Process the choice of the FACTS parameter set. 
191:  
192: C Process hard parameters. 
193:  
194:       FCTCHO=.FALSE. 
195:  
196:       IF ((FCTCPS .EQ. 19    )  .AND. 
197:      &    (FCTEPS .EQ. ONE   )  .AND. 
198:      &    (FCTFPS .EQ. 1     )) THEN 
199:  
200: C This FACTS parameter set was derived with no boundary conditions. 
201:  
202:          FCTCHO    = .TRUE. 
203:  
204: C Define some constants related to the dielectric medium. 
205:  
206:          FCTIEM    = FCTCEL/ONE 
207:          FCTIES    = FCTCEL/78.5D0 
208:          FCTTAU    = FCTIEM-FCTIES 
209:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
210:  
211: C Define the number of native van der Waals radii. 
212:  
213:          FCTNNV    = 7 
214:  
215: C Define the number of actual van der Waals radii. 
216:  
217:          FCTNAV    = 7 
218:  
219: C Define the native van der Waals radii. 
220:  
221:          FCTRVW(1 )= 1.0000D0 
222:          FCTRVW(2 )= 1.6000D0 
223:          FCTRVW(3 )= 1.8900D0 
224:          FCTRVW(4 )= 2.1000D0 
225:          FCTRVW(5 )= 2.1650D0 
226:          FCTRVW(6 )= 2.2350D0 
227:          FCTRVW(7 )= 2.3650D0 
228:  
229: C Define the cutoffs for the FACTS self and interaction energy pair 
230: C lists. 
231:  
232:          FCTCSL    =11.0D0 
233:          FCTCIL    = 8.5D0 
234:  
235: C Define the cutoffs for the FACTS self and interaction energy 
236: C calculations. 
237:  
238:          FCTCSC(1 )= 0.750653E+01 
239:          FCTCSC(2 )= 0.888280E+01 
240:          FCTCSC(3 )= 0.100000E+02 
241:          FCTCSC(4 )= 0.996775E+01 
242:          FCTCSC(5 )= 0.100000E+02 
243:          FCTCSC(6 )= 0.980689E+01 
244:          FCTCSC(7 )= 0.100000E+02 
245:          FCTCIC    = 7.5D0 
246:  
247: C Define the parameters for calculating atomic solvation energies. 
248:  
249:          FCTCB1(1 )=-0.146119E+03 
250:          FCTCB2(1 )=-0.123030E+01 
251:          FCTCA0(1 )=-0.145713E+03 
252:          FCTCA1(1 )= 0.128031E+03 
253:          FCTCA2(1 )= 0.565022E-02 
254:          FCTCA3(1 )= 0.190511E+03 
255:  
256:          FCTCB1(2 )=-0.333497E+03 
257:          FCTCB2(2 )=-0.951523E+00 
258:          FCTCA0(2 )=-0.102064E+03 
259:          FCTCA1(2 )= 0.101863E+03 
260:          FCTCA2(2 )= 0.223184E-02 
261:          FCTCA3(2 )= 0.575798E+03 
262:  
263:          FCTCB1(3 )= 0.134968E+03 
264:          FCTCB2(3 )=-0.895481E+00 
265:          FCTCA0(3 )=-0.786321E+02 
266:          FCTCA1(3 )= 0.720024E+02 
267:          FCTCA2(3 )= 0.241746E-02 
268:          FCTCA3(3 )= 0.109742E+04 
269:  
270:          FCTCB1(4 )=-0.126041E+03 
271:          FCTCB2(4 )=-0.766938E+00 
272:          FCTCA0(4 )=-0.757741E+02 
273:          FCTCA1(4 )= 0.757721E+02 
274:          FCTCA2(4 )= 0.185735E-02 
275:          FCTCA3(4 )= 0.113839E+04 
276:  
277:          FCTCB1(5 )=-0.873195E+02 
278:          FCTCB2(5 )=-0.530376E+00 
279:          FCTCA0(5 )=-0.698119E+02 
280:          FCTCA1(5 )= 0.698099E+02 
281:          FCTCA2(5 )= 0.272477E-02 
282:          FCTCA3(5 )= 0.126616E+04 
283:  
284:          FCTCB1(6 )= 0.199651E+01 
285:          FCTCB2(6 )=-0.794886E+00 
286:          FCTCA0(6 )=-0.697933E+02 
287:          FCTCA1(6 )= 0.697913E+02 
288:          FCTCA2(6 )= 0.224315E-02 
289:          FCTCA3(6 )= 0.115681E+04 
290:  
291:          FCTCB1(7 )= 0.161465E+03 
292:          FCTCB2(7 )=-0.698050E+00 
293:          FCTCA0(7 )=-0.612286E+02 
294:          FCTCA1(7 )= 0.612266E+02 
295:          FCTCA2(7 )= 0.233284E-02 
296:          FCTCA3(7 )= 0.139336E+04 
297:  
298:          FCTQOS    = ZERO 
299:  
300: C Define the parameters for calculating atomic solvent accessible 
301: C surface areas. 
302:  
303:          FCTCD1(1 )=-0.193261E+04 
304:          FCTCD2(1 )=-0.129440E+01 
305:          FCTCC0(1 )= 0.163304E+02 
306:          FCTCC1(1 )=-0.163284E+02 
307:          FCTCC2(1 )= 0.427427E-02 
308:          FCTCC3(1 )=-0.127882E+04 
309:  
310:          FCTCD1(2 )=-0.377745E+04 
311:          FCTCD2(2 )=-0.355457E+01 
312:          FCTCC0(2 )= 0.551873E+02 
313:          FCTCC1(2 )=-0.551853E+02 
314:          FCTCC2(2 )= 0.160205E-02 
315:          FCTCC3(2 )=-0.343534E+04 
316:  
317:          FCTCD1(3 )=-0.139512E+05 
318:          FCTCD2(3 )=-0.268920E+01 
319:          FCTCC0(3 )= 0.393976E+02 
320:          FCTCC1(3 )=-0.391533E+02 
321:          FCTCC2(3 )= 0.731149E-03 
322:          FCTCC3(3 )=-0.765844E+04 
323:  
324:          FCTCD1(4 )=-0.226779E+04 
325:          FCTCD2(4 )=-0.202926E+01 
326:          FCTCC0(4 )= 0.167488E+03 
327:          FCTCC1(4 )=-0.167463E+03 
328:          FCTCC2(4 )= 0.188775E-02 
329:          FCTCC3(4 )=-0.233942E+04 
330:  
331:          FCTCD1(5 )=-0.152804E+04 
332:          FCTCD2(5 )=-0.131676E+01 
333:          FCTCC0(5 )= 0.103612E+03 
334:          FCTCC1(5 )=-0.103610E+03 
335:          FCTCC2(5 )= 0.208470E-02 
336:          FCTCC3(5 )=-0.975892E+03 
337:  
338:          FCTCD1(6 )=-0.149749E+04 
339:          FCTCD2(6 )=-0.144059E+01 
340:          FCTCC0(6 )= 0.637879E+02 
341:          FCTCC1(6 )=-0.637859E+02 
342:          FCTCC2(6 )= 0.288320E-02 
343:          FCTCC3(6 )=-0.626834E+03 
344:  
345:          FCTCD1(7 )= 0.385298E+03 
346:          FCTCD2(7 )=-0.212571E+01 
347:          FCTCC0(7 )= 0.123362E+03 
348:          FCTCC1(7 )=-0.123360E+03 
349:          FCTCC2(7 )= 0.397702E-02 
350:          FCTCC3(7 )=-0.249603E+03 
351:  
352:          FCTUOS    = ZERO 
353:  
354: C Define the parameters for calculating alpha. 
355:  
356:          FCTCF1(1 )=-0.146119E+03 
357:          FCTCF2(1 )=-0.123030E+01 
358:          FCTCE0(1 )= FCTAP0 
359:          FCTCE1(1 )= FCTAP1 
360:          FCTCE2(1 )= FCTAP2 
361:          FCTCE3(1 )= FCTAP3 
362:  
363:          FCTCF1(2 )=-0.333497E+03 
364:          FCTCF2(2 )=-0.951523E+00 
365:          FCTCE0(2 )= FCTAP0 
366:          FCTCE1(2 )= FCTAP1 
367:          FCTCE2(2 )= FCTAP2 
368:          FCTCE3(2 )= FCTAP3 
369:  
370:          FCTCF1(3 )= 0.134968E+03 
371:          FCTCF2(3 )=-0.895481E+00 
372:          FCTCE0(3 )= FCTAP0 
373:          FCTCE1(3 )= FCTAP1 
374:          FCTCE2(3 )= FCTAP2 
375:          FCTCE3(3 )= FCTAP3 
376:  
377:          FCTCF1(4 )=-0.126041E+03 
378:          FCTCF2(4 )=-0.766938E+00 
379:          FCTCE0(4 )= FCTAP0 
380:          FCTCE1(4 )= FCTAP1 
381:          FCTCE2(4 )= FCTAP2 
382:          FCTCE3(4 )= FCTAP3 
383:  
384:          FCTCF1(5 )=-0.873195E+02 
385:          FCTCF2(5 )=-0.530376E+00 
386:          FCTCE0(5 )= FCTAP0 
387:          FCTCE1(5 )= FCTAP1 
388:          FCTCE2(5 )= FCTAP2 
389:          FCTCE3(5 )= FCTAP3 
390:  
391:          FCTCF1(6 )= 0.199651E+01 
392:          FCTCF2(6 )=-0.794886E+00 
393:          FCTCE0(6 )= FCTAP0 
394:          FCTCE1(6 )= FCTAP1 
395:          FCTCE2(6 )= FCTAP2 
396:          FCTCE3(6 )= FCTAP3 
397:  
398:          FCTCF1(7 )= 0.161465E+03 
399:          FCTCF2(7 )=-0.698050E+00 
400:          FCTCE0(7 )= FCTAP0 
401:          FCTCE1(7 )= FCTAP1 
402:          FCTCE2(7 )= FCTAP2 
403:          FCTCE3(7 )= FCTAP3 
404:  
405:          FCTVOS    = ZERO 
406:  
407: C Define the parameters for calculating beta. 
408:  
409:          FCTCH1(1 )=-0.146119E+03 
410:          FCTCH2(1 )=-0.123030E+01 
411:          FCTCG0(1 )= FCTBT0 
412:          FCTCG1(1 )= FCTBT1 
413:          FCTCG2(1 )= FCTBT2 
414:          FCTCG3(1 )= FCTBT3 
415:  
416:          FCTCH1(2 )=-0.333497E+03 
417:          FCTCH2(2 )=-0.951523E+00 
418:          FCTCG0(2 )= FCTBT0 
419:          FCTCG1(2 )= FCTBT1 
420:          FCTCG2(2 )= FCTBT2 
421:          FCTCG3(2 )= FCTBT3 
422:  
423:          FCTCH1(3 )= 0.134968E+03 
424:          FCTCH2(3 )=-0.895481E+00 
425:          FCTCG0(3 )= FCTBT0 
426:          FCTCG1(3 )= FCTBT1 
427:          FCTCG2(3 )= FCTBT2 
428:          FCTCG3(3 )= FCTBT3 
429:  
430:          FCTCH1(4 )=-0.126041E+03 
431:          FCTCH2(4 )=-0.766938E+00 
432:          FCTCG0(4 )= FCTBT0 
433:          FCTCG1(4 )= FCTBT1 
434:          FCTCG2(4 )= FCTBT2 
435:          FCTCG3(4 )= FCTBT3 
436:  
437:          FCTCH1(5 )=-0.873195E+02 
438:          FCTCH2(5 )=-0.530376E+00 
439:          FCTCG0(5 )= FCTBT0 
440:          FCTCG1(5 )= FCTBT1 
441:          FCTCG2(5 )= FCTBT2 
442:          FCTCG3(5 )= FCTBT3 
443:  
444:          FCTCH1(6 )= 0.199651E+01 
445:          FCTCH2(6 )=-0.794886E+00 
446:          FCTCG0(6 )= FCTBT0 
447:          FCTCG1(6 )= FCTBT1 
448:          FCTCG2(6 )= FCTBT2 
449:          FCTCG3(6 )= FCTBT3 
450:  
451:          FCTCH1(7 )= 0.161465E+03 
452:          FCTCH2(7 )=-0.698050E+00 
453:          FCTCG0(7 )= FCTBT0 
454:          FCTCG1(7 )= FCTBT1 
455:          FCTCG2(7 )= FCTBT2 
456:          FCTCG3(7 )= FCTBT3 
457:  
458:          FCTWOS    = ZERO 
459:  
460: C Define the initial value for the measure of symmetry. 
461:  
462:          FCTBIN    = ONE 
463:  
464: C Define the factor for the exponential function in the Generalized Born 
465: C formula. 
466:  
467:          FCTKPS    = FOUR 
468:  
469: C Define the quenching factors for the atomic solvation energies. They 
470: C affect both atomic solvation and interaction energies. 
471:  
472:          FCTQUN(1 )= ONE 
473:          FCTQUN(2 )= ONE 
474:          FCTQUN(3 )= ONE 
475:          FCTQUN(4 )= ONE 
476:          FCTQUN(5 )= ONE 
477:          FCTQUN(6 )= ONE 
478:          FCTQUN(7 )= ONE 
479:  
480: C They only affect atomic solvation energies and the nonpolar 
481: C contributions that are proportional to the unit charge atomic 
482: C solvation energies. They do not affect interaction energies. 
483:  
484:          FCTSCF(1 )= ONE 
485:          FCTSCF(2 )= ONE 
486:          FCTSCF(3 )= ONE 
487:          FCTSCF(4 )= ONE 
488:          FCTSCF(5 )= ONE 
489:          FCTSCF(6 )= ONE 
490:          FCTSCF(7 )= ONE 
491:  
492: C Define the factors to obtain the nonpolar contributions that are 
493: C proportional to the unit charge atomic solvation energies. 
494:  
495:          FCTNPS(1 )= ZERO 
496:          FCTNPS(2 )= ZERO 
497:          FCTNPS(3 )= ZERO 
498:          FCTNPS(4 )= ZERO 
499:          FCTNPS(5 )= ZERO 
500:          FCTNPS(6 )= ZERO 
501:          FCTNPS(7 )= ZERO 
502:  
503:       ENDIF 
504:  
505:       IF ((FCTCPS .EQ. 19    )  .AND. 
506:      &    (FCTEPS .EQ. ONE   )  .AND. 
507:      &    (FCTFPS .EQ. 2     )) THEN 
508:  
509: C This FACTS parameter set was derived with boundary conditions at 
510: C negative and positive infinity. 
511:  
512:          FCTCHO    = .TRUE. 
513:  
514: C Define some constants related to the dielectric medium. 
515:  
516:          FCTIEM    = FCTCEL/ONE 
517:          FCTIES    = FCTCEL/78.5D0 
518:          FCTTAU    = FCTIEM-FCTIES 
519:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
520:  
521: C Define the number of native van der Waals radii. 
522:  
523:          FCTNNV    = 7 
524:  
525: C Define the number of actual van der Waals radii. 
526:  
527:          FCTNAV    = 7 
528:  
529: C Define the native van der Waals radii. 
530:  
531:          FCTRVW(1 )= 1.0000D0 
532:          FCTRVW(2 )= 1.6000D0 
533:          FCTRVW(3 )= 1.8900D0 
534:          FCTRVW(4 )= 2.1000D0 
535:          FCTRVW(5 )= 2.1650D0 
536:          FCTRVW(6 )= 2.2350D0 
537:          FCTRVW(7 )= 2.3650D0 
538:  
539: C Define the cutoffs for the FACTS self and interaction energy pair 
540: C lists. 
541:  
542:          FCTCSL    =11.0D0 
543:          FCTCIL    = 8.5D0 
544:  
545: C Define the cutoffs for the FACTS self and interaction energy 
546: C calculations. 
547:  
548:          FCTCSC(1 )= 0.758192E+01 
549:          FCTCSC(2 )= 0.888282E+01 
550:          FCTCSC(3 )= 0.100000E+02 
551:          FCTCSC(4 )= 0.998903E+01 
552:          FCTCSC(5 )= 0.100000E+02 
553:          FCTCSC(6 )= 0.981312E+01 
554:          FCTCSC(7 )= 0.100000E+02 
555:          FCTCIC    = 7.5D0 
556:  
557: C Define the parameters for calculating atomic solvation energies. 
558:  
559:          FCTCB1(1 )=-0.241162E+03 
560:          FCTCB2(1 )=-0.116943E+01 
561:          FCTCA0(1 )=-0.163921E+03 
562:          FCTCA1(1 )= 0.163919E+03 
563:          FCTCA2(1 )= 0.354894E-02 
564:          FCTCA3(1 )= 0.167028E+03 
565:  
566:          FCTCB1(2 )=-0.306833E+03 
567:          FCTCB2(2 )=-0.965681E+00 
568:          FCTCA0(2 )=-0.102450E+03 
569:          FCTCA1(2 )= 0.102448E+03 
570:          FCTCA2(2 )= 0.223295E-02 
571:          FCTCA3(2 )= 0.576944E+03 
572:  
573:          FCTCB1(3 )= 0.277598E+03 
574:          FCTCB2(3 )=-0.100806E+01 
575:          FCTCA0(3 )=-0.867305E+02 
576:          FCTCA1(3 )= 0.867285E+02 
577:          FCTCA2(3 )= 0.195957E-02 
578:          FCTCA3(3 )= 0.107884E+04 
579:  
580:          FCTCB1(4 )=-0.438434E+02 
581:          FCTCB2(4 )=-0.829504E+00 
582:          FCTCA0(4 )=-0.780575E+02 
583:          FCTCA1(4 )= 0.780555E+02 
584:          FCTCA2(4 )= 0.179271E-02 
585:          FCTCA3(4 )= 0.110891E+04 
586:  
587:          FCTCB1(5 )= 0.391840E+03 
588:          FCTCB2(5 )=-0.860529E+00 
589:          FCTCA0(5 )=-0.757139E+02 
590:          FCTCA1(5 )= 0.757119E+02 
591:          FCTCA2(5 )= 0.264801E-02 
592:          FCTCA3(5 )= 0.120150E+04 
593:  
594:          FCTCB1(6 )= 0.230231E+03 
595:          FCTCB2(6 )=-0.964971E+00 
596:          FCTCA0(6 )=-0.733426E+02 
597:          FCTCA1(6 )= 0.733406E+02 
598:          FCTCA2(6 )= 0.216898E-02 
599:          FCTCA3(6 )= 0.111092E+04 
600:  
601:          FCTCB1(7 )= 0.738064E+03 
602:          FCTCB2(7 )=-0.116688E+01 
603:          FCTCA0(7 )=-0.693111E+02 
604:          FCTCA1(7 )= 0.693091E+02 
605:          FCTCA2(7 )= 0.208109E-02 
606:          FCTCA3(7 )= 0.125876E+04 
607:  
608:          FCTQOS    = ZERO 
609:  
610: C Define the parameters for calculating atomic solvent accessible 
611: C surface areas. 
612:  
613:          FCTCD1(1 )=-0.530974E+04 
614:          FCTCD2(1 )=-0.283595E+01 
615:          FCTCC0(1 )= 0.723823E+02 
616:          FCTCC1(1 )=-0.723803E+02 
617:          FCTCC2(1 )= 0.948699E-03 
618:          FCTCC3(1 )=-0.634299E+04 
619:  
620:          FCTCD1(2 )=-0.721736E+04 
621:          FCTCD2(2 )=-0.588016E+01 
622:          FCTCC0(2 )= 0.113097E+03 
623:          FCTCC1(2 )=-0.113095E+03 
624:          FCTCC2(2 )= 0.721988E-03 
625:          FCTCC3(2 )=-0.833669E+04 
626:  
627:          FCTCD1(3 )=-0.449150E+03 
628:          FCTCD2(3 )=-0.184751E+01 
629:          FCTCC0(3 )= 0.136020E+03 
630:          FCTCC1(3 )=-0.136018E+03 
631:          FCTCC2(3 )= 0.311294E-02 
632:          FCTCC3(3 )=-0.799607E+03 
633:  
634:          FCTCD1(4 )=-0.293013E+04 
635:          FCTCD2(4 )=-0.246201E+01 
636:          FCTCC0(4 )= 0.153938E+03 
637:          FCTCC1(4 )=-0.153936E+03 
638:          FCTCC2(4 )= 0.167988E-02 
639:          FCTCC3(4 )=-0.293529E+04 
640:  
641:          FCTCD1(5 )=-0.625795E+03 
642:          FCTCD2(5 )=-0.142591E+01 
643:          FCTCC0(5 )= 0.159709E+03 
644:          FCTCC1(5 )=-0.159707E+03 
645:          FCTCC2(5 )= 0.247873E-02 
646:          FCTCC3(5 )=-0.715735E+03 
647:  
648:          FCTCD1(6 )=-0.329967E+03 
649:          FCTCD2(6 )=-0.156074E+01 
650:          FCTCC0(6 )= 0.166042E+03 
651:          FCTCC1(6 )=-0.166040E+03 
652:          FCTCC2(6 )= 0.317832E-02 
653:          FCTCC3(6 )=-0.525907E+03 
654:  
655:          FCTCD1(7 )= 0.290940E+03 
656:          FCTCD2(7 )=-0.210886E+01 
657:          FCTCC0(7 )= 0.178131E+03 
658:          FCTCC1(7 )=-0.178129E+03 
659:          FCTCC2(7 )= 0.370899E-02 
660:          FCTCC3(7 )=-0.433283E+03 
661:  
662:          FCTUOS    = ZERO 
663:  
664: C Define the parameters for calculating alpha. 
665:  
666:          FCTCF1(1 )=-0.241162E+03 
667:          FCTCF2(1 )=-0.116943E+01 
668:          FCTCE0(1 )= FCTAP0 
669:          FCTCE1(1 )= FCTAP1 
670:          FCTCE2(1 )= FCTAP2 
671:          FCTCE3(1 )= FCTAP3 
672:  
673:          FCTCF1(2 )=-0.306833E+03 
674:          FCTCF2(2 )=-0.965681E+00 
675:          FCTCE0(2 )= FCTAP0 
676:          FCTCE1(2 )= FCTAP1 
677:          FCTCE2(2 )= FCTAP2 
678:          FCTCE3(2 )= FCTAP3 
679:  
680:          FCTCF1(3 )= 0.277598E+03 
681:          FCTCF2(3 )=-0.100806E+01 
682:          FCTCE0(3 )= FCTAP0 
683:          FCTCE1(3 )= FCTAP1 
684:          FCTCE2(3 )= FCTAP2 
685:          FCTCE3(3 )= FCTAP3 
686:  
687:          FCTCF1(4 )=-0.438434E+02 
688:          FCTCF2(4 )=-0.829504E+00 
689:          FCTCE0(4 )= FCTAP0 
690:          FCTCE1(4 )= FCTAP1 
691:          FCTCE2(4 )= FCTAP2 
692:          FCTCE3(4 )= FCTAP3 
693:  
694:          FCTCF1(5 )= 0.391840E+03 
695:          FCTCF2(5 )=-0.860529E+00 
696:          FCTCE0(5 )= FCTAP0 
697:          FCTCE1(5 )= FCTAP1 
698:          FCTCE2(5 )= FCTAP2 
699:          FCTCE3(5 )= FCTAP3 
700:  
701:          FCTCF1(6 )= 0.230231E+03 
702:          FCTCF2(6 )=-0.964971E+00 
703:          FCTCE0(6 )= FCTAP0 
704:          FCTCE1(6 )= FCTAP1 
705:          FCTCE2(6 )= FCTAP2 
706:          FCTCE3(6 )= FCTAP3 
707:  
708:          FCTCF1(7 )= 0.738064E+03 
709:          FCTCF2(7 )=-0.116688E+01 
710:          FCTCE0(7 )= FCTAP0 
711:          FCTCE1(7 )= FCTAP1 
712:          FCTCE2(7 )= FCTAP2 
713:          FCTCE3(7 )= FCTAP3 
714:  
715:          FCTVOS    = ZERO 
716:  
717: C Define the parameters for calculating beta. 
718:  
719:          FCTCH1(1 )=-0.241162E+03 
720:          FCTCH2(1 )=-0.116943E+01 
721:          FCTCG0(1 )= FCTBT0 
722:          FCTCG1(1 )= FCTBT1 
723:          FCTCG2(1 )= FCTBT2 
724:          FCTCG3(1 )= FCTBT3 
725:  
726:          FCTCH1(2 )=-0.306833E+03 
727:          FCTCH2(2 )=-0.965681E+00 
728:          FCTCG0(2 )= FCTBT0 
729:          FCTCG1(2 )= FCTBT1 
730:          FCTCG2(2 )= FCTBT2 
731:          FCTCG3(2 )= FCTBT3 
732:  
733:          FCTCH1(3 )= 0.277598E+03 
734:          FCTCH2(3 )=-0.100806E+01 
735:          FCTCG0(3 )= FCTBT0 
736:          FCTCG1(3 )= FCTBT1 
737:          FCTCG2(3 )= FCTBT2 
738:          FCTCG3(3 )= FCTBT3 
739:  
740:          FCTCH1(4 )=-0.438434E+02 
741:          FCTCH2(4 )=-0.829504E+00 
742:          FCTCG0(4 )= FCTBT0 
743:          FCTCG1(4 )= FCTBT1 
744:          FCTCG2(4 )= FCTBT2 
745:          FCTCG3(4 )= FCTBT3 
746:  
747:          FCTCH1(5 )= 0.391840E+03 
748:          FCTCH2(5 )=-0.860529E+00 
749:          FCTCG0(5 )= FCTBT0 
750:          FCTCG1(5 )= FCTBT1 
751:          FCTCG2(5 )= FCTBT2 
752:          FCTCG3(5 )= FCTBT3 
753:  
754:          FCTCH1(6 )= 0.230231E+03 
755:          FCTCH2(6 )=-0.964971E+00 
756:          FCTCG0(6 )= FCTBT0 
757:          FCTCG1(6 )= FCTBT1 
758:          FCTCG2(6 )= FCTBT2 
759:          FCTCG3(6 )= FCTBT3 
760:  
761:          FCTCH1(7 )= 0.738064E+03 
762:          FCTCH2(7 )=-0.116688E+01 
763:          FCTCG0(7 )= FCTBT0 
764:          FCTCG1(7 )= FCTBT1 
765:          FCTCG2(7 )= FCTBT2 
766:          FCTCG3(7 )= FCTBT3 
767:  
768:          FCTWOS    = ZERO 
769:  
770: C Define the initial value for the measure of symmetry. 
771:  
772:          FCTBIN    = ZERO 
773:  
774: C Define the factor for the exponential function in the Generalized Born 
775: C formula. 
776:  
777:          FCTKPS    = FOUR 
778:  
779: C Define the quenching factors for the atomic solvation energies. They 
780: C affect both atomic solvation and interaction energies. 
781:  
782:          FCTQUN(1 )= ONE 
783:          FCTQUN(2 )= ONE 
784:          FCTQUN(3 )= ONE 
785:          FCTQUN(4 )= ONE 
786:          FCTQUN(5 )= ONE 
787:          FCTQUN(6 )= ONE 
788:          FCTQUN(7 )= ONE 
789:  
790: C Define the scaling factors for the charges and for the FCTNPS factors. 
791: C They only affect atomic solvation energies and the nonpolar 
792: C contributions that are proportional to the unit charge atomic 
793: C solvation energies. They do not affect interaction energies. 
794:  
795:          FCTSCF(1 )= ONE 
796:          FCTSCF(2 )= ONE 
797:          FCTSCF(3 )= ONE 
798:          FCTSCF(4 )= ONE 
799:          FCTSCF(5 )= ONE 
800:          FCTSCF(6 )= ONE 
801:          FCTSCF(7 )= ONE 
802:  
803: C Define the factors to obtain the nonpolar contributions that are 
804: C proportional to the unit charge atomic solvation energies. 
805:  
806:          FCTNPS(1 )= ZERO 
807:          FCTNPS(2 )= ZERO 
808:          FCTNPS(3 )= ZERO 
809:          FCTNPS(4 )= ZERO 
810:          FCTNPS(5 )= ZERO 
811:          FCTNPS(6 )= ZERO 
812:          FCTNPS(7 )= ZERO 
813:  
814:       ENDIF 
815:  
816:       IF ((FCTCPS .EQ. 19    )  .AND. 
817:      &    (FCTEPS .EQ. ONE   )  .AND. 
818:      &    (FCTFPS .EQ. 3     )) THEN 
819:  
820: C This FACTS parameter set was derived with boundary conditions at zero 
821: C and positive infinity. 
822:  
823:          FCTCHO    = .TRUE. 
824:  
825: C Define some constants related to the dielectric medium. 
826:  
827:          FCTIEM    = FCTCEL/ONE 
828:          FCTIES    = FCTCEL/78.5D0 
829:          FCTTAU    = FCTIEM-FCTIES 
830:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
831:  
832: C Define the number of native van der Waals radii. 
833:  
834:          FCTNNV    = 7 
835:  
836: C Define the number of actual van der Waals radii. 
837:  
838:          FCTNAV    = 7 
839:  
840: C Define the native van der Waals radii. 
841:  
842:          FCTRVW(1 )= 1.0000D0 
843:          FCTRVW(2 )= 1.6000D0 
844:          FCTRVW(3 )= 1.8900D0 
845:          FCTRVW(4 )= 2.1000D0 
846:          FCTRVW(5 )= 2.1650D0 
847:          FCTRVW(6 )= 2.2350D0 
848:          FCTRVW(7 )= 2.3650D0 
849:  
850: C Define the cutoffs for the FACTS self and interaction energy pair 
851: C lists. 
852:  
853:          FCTCSL    =11.0D0 
854:          FCTCIL    = 8.5D0 
855:  
856: C Define the cutoffs for the FACTS self and interaction energy 
857: C calculations. 
858:  
859:          FCTCSC(1 )= 0.753702E+01 
860:          FCTCSC(2 )= 0.879248E+01 
861:          FCTCSC(3 )= 0.100000E+02 
862:          FCTCSC(4 )= 0.996445E+01 
863:          FCTCSC(5 )= 0.100000E+02 
864:          FCTCSC(6 )= 0.977048E+01 
865:          FCTCSC(7 )= 0.100000E+02 
866:          FCTCIC    = 7.5D0 
867:  
868: C Define the parameters for calculating atomic solvation energies. 
869:  
870:          FCTCB1(1 )= 0.166082E+03 
871:          FCTCB2(1 )=-0.137007E+01 
872:          FCTCA0(1 )=-0.450100E+03 
873:          FCTCA1(1 )= 0.450098E+03 
874:          FCTCA2(1 )= 0.331383E-02 
875:          FCTCA3(1 )=-0.168158E+03 
876:  
877:          FCTCB1(2 )= 0.278024E+03 
878:          FCTCB2(2 )=-0.134664E+01 
879:          FCTCA0(2 )=-0.175090E+03 
880:          FCTCA1(2 )= 0.175088E+03 
881:          FCTCA2(2 )= 0.198357E-02 
882:          FCTCA3(2 )= 0.173352E+03 
883:  
884:          FCTCB1(3 )= 0.603837E+03 
885:          FCTCB2(3 )=-0.120153E+01 
886:          FCTCA0(3 )=-0.103788E+03 
887:          FCTCA1(3 )= 0.103786E+03 
888:          FCTCA2(3 )= 0.179918E-02 
889:          FCTCA3(3 )= 0.903844E+03 
890:  
891:          FCTCB1(4 )= 0.496612E+03 
892:          FCTCB2(4 )=-0.120905E+01 
893:          FCTCA0(4 )=-0.983751E+02 
894:          FCTCA1(4 )= 0.983731E+02 
895:          FCTCA2(4 )= 0.160127E-02 
896:          FCTCA3(4 )= 0.840541E+03 
897:  
898:          FCTCB1(5 )= 0.542264E+03 
899:          FCTCB2(5 )=-0.941220E+00 
900:          FCTCA0(5 )=-0.792235E+02 
901:          FCTCA1(5 )= 0.792215E+02 
902:          FCTCA2(5 )= 0.261332E-02 
903:          FCTCA3(5 )= 0.117531E+04 
904:  
905:          FCTCB1(6 )= 0.554837E+03 
906:          FCTCB2(6 )=-0.120060E+01 
907:          FCTCA0(6 )=-0.832693E+02 
908:          FCTCA1(6 )= 0.832673E+02 
909:          FCTCA2(6 )= 0.204106E-02 
910:          FCTCA3(6 )= 0.979828E+03 
911:  
912:          FCTCB1(7 )= 0.100346E+04 
913:          FCTCB2(7 )=-0.138605E+01 
914:          FCTCA0(7 )=-0.769089E+02 
915:          FCTCA1(7 )= 0.769069E+02 
916:          FCTCA2(7 )= 0.192988E-02 
917:          FCTCA3(7 )= 0.114552E+04 
918:  
919:          FCTQOS    = ZERO 
920:  
921: C Define the parameters for calculating atomic solvent accessible 
922: C surface areas. 
923:  
924:          FCTCD1(1 )=-0.193261E+04 
925:          FCTCD2(1 )=-0.129440E+01 
926:          FCTCC0(1 )= 0.163304E+02 
927:          FCTCC1(1 )=-0.163284E+02 
928:          FCTCC2(1 )= 0.427427E-02 
929:          FCTCC3(1 )=-0.127882E+04 
930:  
931:          FCTCD1(2 )=-0.377745E+04 
932:          FCTCD2(2 )=-0.355457E+01 
933:          FCTCC0(2 )= 0.551873E+02 
934:          FCTCC1(2 )=-0.551853E+02 
935:          FCTCC2(2 )= 0.160205E-02 
936:          FCTCC3(2 )=-0.343534E+04 
937:  
938:          FCTCD1(3 )=-0.139512E+05 
939:          FCTCD2(3 )=-0.268920E+01 
940:          FCTCC0(3 )= 0.393976E+02 
941:          FCTCC1(3 )=-0.391533E+02 
942:          FCTCC2(3 )= 0.731149E-03 
943:          FCTCC3(3 )=-0.765844E+04 
944:  
945:          FCTCD1(4 )=-0.226779E+04 
946:          FCTCD2(4 )=-0.202926E+01 
947:          FCTCC0(4 )= 0.167488E+03 
948:          FCTCC1(4 )=-0.167463E+03 
949:          FCTCC2(4 )= 0.188775E-02 
950:          FCTCC3(4 )=-0.233942E+04 
951:  
952:          FCTCD1(5 )=-0.152804E+04 
953:          FCTCD2(5 )=-0.131676E+01 
954:          FCTCC0(5 )= 0.103612E+03 
955:          FCTCC1(5 )=-0.103610E+03 
956:          FCTCC2(5 )= 0.208470E-02 
957:          FCTCC3(5 )=-0.975892E+03 
958:  
959:          FCTCD1(6 )=-0.149749E+04 
960:          FCTCD2(6 )=-0.144059E+01 
961:          FCTCC0(6 )= 0.637879E+02 
962:          FCTCC1(6 )=-0.637859E+02 
963:          FCTCC2(6 )= 0.288320E-02 
964:          FCTCC3(6 )=-0.626834E+03 
965:  
966:          FCTCD1(7 )= 0.385298E+03 
967:          FCTCD2(7 )=-0.212571E+01 
968:          FCTCC0(7 )= 0.123362E+03 
969:          FCTCC1(7 )=-0.123360E+03 
970:          FCTCC2(7 )= 0.397702E-02 
971:          FCTCC3(7 )=-0.249603E+03 
972:  
973:          FCTUOS    = ZERO 
974:  
975: C Define the parameters for calculating alpha. 
976:  
977:          FCTCF1(1 )= 0.166082E+03 
978:          FCTCF2(1 )=-0.137007E+01 
979:          FCTCE0(1 )= FCTAP0 
980:          FCTCE1(1 )= FCTAP1 
981:          FCTCE2(1 )= FCTAP2 
982:          FCTCE3(1 )= FCTAP3 
983:  
984:          FCTCF1(2 )= 0.278024E+03 
985:          FCTCF2(2 )=-0.134664E+01 
986:          FCTCE0(2 )= FCTAP0 
987:          FCTCE1(2 )= FCTAP1 
988:          FCTCE2(2 )= FCTAP2 
989:          FCTCE3(2 )= FCTAP3 
990:  
991:          FCTCF1(3 )= 0.603837E+03 
992:          FCTCF2(3 )=-0.120153E+01 
993:          FCTCE0(3 )= FCTAP0 
994:          FCTCE1(3 )= FCTAP1 
995:          FCTCE2(3 )= FCTAP2 
996:          FCTCE3(3 )= FCTAP3 
997:  
998:          FCTCF1(4 )= 0.496612E+03 
999:          FCTCF2(4 )=-0.120905E+01 
1000:          FCTCE0(4 )= FCTAP0 
1001:          FCTCE1(4 )= FCTAP1 
1002:          FCTCE2(4 )= FCTAP2 
1003:          FCTCE3(4 )= FCTAP3 
1004:  
1005:          FCTCF1(5 )= 0.542264E+03 
1006:          FCTCF2(5 )=-0.941220E+00 
1007:          FCTCE0(5 )= FCTAP0 
1008:          FCTCE1(5 )= FCTAP1 
1009:          FCTCE2(5 )= FCTAP2 
1010:          FCTCE3(5 )= FCTAP3 
1011:  
1012:          FCTCF1(6 )= 0.554837E+03 
1013:          FCTCF2(6 )=-0.120060E+01 
1014:          FCTCE0(6 )= FCTAP0 
1015:          FCTCE1(6 )= FCTAP1 
1016:          FCTCE2(6 )= FCTAP2 
1017:          FCTCE3(6 )= FCTAP3 
1018:  
1019:          FCTCF1(7 )= 0.100346E+04 
1020:          FCTCF2(7 )=-0.138605E+01 
1021:          FCTCE0(7 )= FCTAP0 
1022:          FCTCE1(7 )= FCTAP1 
1023:          FCTCE2(7 )= FCTAP2 
1024:          FCTCE3(7 )= FCTAP3 
1025:  
1026:          FCTVOS    = ZERO 
1027:  
1028: C Define the parameters for calculating beta. 
1029:  
1030:          FCTCH1(1 )= 0.166082E+03 
1031:          FCTCH2(1 )=-0.137007E+01 
1032:          FCTCG0(1 )= FCTBT0 
1033:          FCTCG1(1 )= FCTBT1 
1034:          FCTCG2(1 )= FCTBT2 
1035:          FCTCG3(1 )= FCTBT3 
1036:  
1037:          FCTCH1(2 )= 0.278024E+03 
1038:          FCTCH2(2 )=-0.134664E+01 
1039:          FCTCG0(2 )= FCTBT0 
1040:          FCTCG1(2 )= FCTBT1 
1041:          FCTCG2(2 )= FCTBT2 
1042:          FCTCG3(2 )= FCTBT3 
1043:  
1044:          FCTCH1(3 )= 0.603837E+03 
1045:          FCTCH2(3 )=-0.120153E+01 
1046:          FCTCG0(3 )= FCTBT0 
1047:          FCTCG1(3 )= FCTBT1 
1048:          FCTCG2(3 )= FCTBT2 
1049:          FCTCG3(3 )= FCTBT3 
1050:  
1051:          FCTCH1(4 )= 0.496612E+03 
1052:          FCTCH2(4 )=-0.120905E+01 
1053:          FCTCG0(4 )= FCTBT0 
1054:          FCTCG1(4 )= FCTBT1 
1055:          FCTCG2(4 )= FCTBT2 
1056:          FCTCG3(4 )= FCTBT3 
1057:  
1058:          FCTCH1(5 )= 0.542264E+03 
1059:          FCTCH2(5 )=-0.941220E+00 
1060:          FCTCG0(5 )= FCTBT0 
1061:          FCTCG1(5 )= FCTBT1 
1062:          FCTCG2(5 )= FCTBT2 
1063:          FCTCG3(5 )= FCTBT3 
1064:  
1065:          FCTCH1(6 )= 0.554837E+03 
1066:          FCTCH2(6 )=-0.120060E+01 
1067:          FCTCG0(6 )= FCTBT0 
1068:          FCTCG1(6 )= FCTBT1 
1069:          FCTCG2(6 )= FCTBT2 
1070:          FCTCG3(6 )= FCTBT3 
1071:  
1072:          FCTCH1(7 )= 0.100346E+04 
1073:          FCTCH2(7 )=-0.138605E+01 
1074:          FCTCG0(7 )= FCTBT0 
1075:          FCTCG1(7 )= FCTBT1 
1076:          FCTCG2(7 )= FCTBT2 
1077:          FCTCG3(7 )= FCTBT3 
1078:  
1079:          FCTWOS    = ZERO 
1080:  
1081: C Define the initial value for the measure of symmetry. 
1082:  
1083:          FCTBIN    = ONE 
1084:  
1085: C Define the factor for the exponential function in the Generalized Born 
1086: C formula. 
1087:  
1088:          FCTKPS    = FOUR 
1089:  
1090: C Define the quenching factors for the atomic solvation energies. They 
1091: C affect both atomic solvation and interaction energies. 
1092:  
1093:          FCTQUN(1 )= ONE 
1094:          FCTQUN(2 )= ONE 
1095:          FCTQUN(3 )= ONE 
1096:          FCTQUN(4 )= ONE 
1097:          FCTQUN(5 )= ONE 
1098:          FCTQUN(6 )= ONE 
1099:          FCTQUN(7 )= ONE 
1100:  
1101: C Define the scaling factors for the charges and for the FCTNPS factors. 
1102: C They only affect atomic solvation energies and the nonpolar 
1103: C contributions that are proportional to the unit charge atomic 
1104: C solvation energies. They do not affect interaction energies. 
1105:  
1106:          FCTSCF(1 )= ONE 
1107:          FCTSCF(2 )= ONE 
1108:          FCTSCF(3 )= ONE 
1109:          FCTSCF(4 )= ONE 
1110:          FCTSCF(5 )= ONE 
1111:          FCTSCF(6 )= ONE 
1112:          FCTSCF(7 )= ONE 
1113:  
1114: C Define the factors to obtain the nonpolar contributions that are 
1115: C proportional to the unit charge atomic solvation energies. 
1116:  
1117:          FCTNPS(1 )= ZERO 
1118:          FCTNPS(2 )= ZERO 
1119:          FCTNPS(3 )= ZERO 
1120:          FCTNPS(4 )= ZERO 
1121:          FCTNPS(5 )= ZERO 
1122:          FCTNPS(6 )= ZERO 
1123:          FCTNPS(7 )= ZERO 
1124:  
1125:       ENDIF 
1126:  
1127:       IF ((FCTCPS .EQ. 19    )  .AND. 
1128:      &    (FCTEPS .EQ. 1.35D0)  .AND. 
1129:      &    (FCTFPS .EQ. 1     )) THEN 
1130:  
1131: C This FACTS parameter set was derived with no boundary conditions. 
1132:  
1133:          FCTCHO    = .TRUE. 
1134:  
1135: C Define some constants related to the dielectric medium. 
1136:  
1137:          FCTIEM    = FCTCEL/1.35D0 
1138:          FCTIES    = FCTCEL/78.5D0 
1139:          FCTTAU    = FCTIEM-FCTIES 
1140:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
1141:  
1142: C Define the number of native van der Waals radii. 
1143:  
1144:          FCTNNV    = 7 
1145:  
1146: C Define the number of actual van der Waals radii. 
1147:  
1148:          FCTNAV    = 7 
1149:  
1150: C Define the native van der Waals radii. 
1151:  
1152:          FCTRVW(1 )= 1.0000D0 
1153:          FCTRVW(2 )= 1.6000D0 
1154:          FCTRVW(3 )= 1.8900D0 
1155:          FCTRVW(4 )= 2.1000D0 
1156:          FCTRVW(5 )= 2.1650D0 
1157:          FCTRVW(6 )= 2.2350D0 
1158:          FCTRVW(7 )= 2.3650D0 
1159:  
1160: C Define the cutoffs for the FACTS self and interaction energy pair 
1161: C lists. 
1162:  
1163:          FCTCSL    =11.0D0 
1164:          FCTCIL    = 8.5D0 
1165:  
1166: C Define the cutoffs for the FACTS self and interaction energy 
1167: C calculations. 
1168:  
1169:          FCTCSC(1 )= 0.712626E+01 
1170:          FCTCSC(2 )= 0.860849E+01 
1171:          FCTCSC(3 )= 0.893099E+01 
1172:          FCTCSC(4 )= 0.940148E+01 
1173:          FCTCSC(5 )= 0.999124E+01 
1174:          FCTCSC(6 )= 0.943040E+01 
1175:          FCTCSC(7 )= 0.100000E+02 
1176:          FCTCIC    = 7.5D0 
1177:  
1178: C Define the parameters for calculating atomic solvation energies. 
1179:  
1180:          FCTCB1(1 )=-0.190622E+03 
1181:          FCTCB2(1 )=-0.117281E+01 
1182:          FCTCA0(1 )=-0.107228E+03 
1183:          FCTCA1(1 )= 0.923060E+02 
1184:          FCTCA2(1 )= 0.595917E-02 
1185:          FCTCA3(1 )= 0.134519E+03 
1186:  
1187:          FCTCB1(2 )=-0.791076E+02 
1188:          FCTCB2(2 )=-0.118545E+01 
1189:          FCTCA0(2 )=-0.931852E+02 
1190:          FCTCA1(2 )= 0.931832E+02 
1191:          FCTCA2(2 )= 0.195182E-02 
1192:          FCTCA3(2 )= 0.342099E+03 
1193:  
1194:          FCTCB1(3 )=-0.311741E+02 
1195:          FCTCB2(3 )=-0.790763E+00 
1196:          FCTCA0(3 )=-0.620319E+02 
1197:          FCTCA1(3 )= 0.620299E+02 
1198:          FCTCA2(3 )= 0.178036E-02 
1199:          FCTCA3(3 )= 0.897620E+03 
1200:  
1201:          FCTCB1(4 )=-0.311741E+02 
1202:          FCTCB2(4 )=-0.790763E+00 
1203:          FCTCA0(4 )=-0.620319E+02 
1204:          FCTCA1(4 )= 0.620299E+02 
1205:          FCTCA2(4 )= 0.178036E-02 
1206:          FCTCA3(4 )= 0.897620E+03 
1207:  
1208:          FCTCB1(5 )=-0.174917E+03 
1209:          FCTCB2(5 )=-0.565937E+00 
1210:          FCTCA0(5 )=-0.536194E+02 
1211:          FCTCA1(5 )= 0.536174E+02 
1212:          FCTCA2(5 )= 0.217793E-02 
1213:          FCTCA3(5 )= 0.122633E+04 
1214:  
1215:          FCTCB1(6 )= 0.723640E+02 
1216:          FCTCB2(6 )=-0.872348E+00 
1217:          FCTCA0(6 )=-0.543674E+02 
1218:          FCTCA1(6 )= 0.543654E+02 
1219:          FCTCA2(6 )= 0.220468E-02 
1220:          FCTCA3(6 )= 0.100378E+04 
1221:  
1222:          FCTCB1(7 )= 0.229882E+03 
1223:          FCTCB2(7 )=-0.769184E+00 
1224:          FCTCA0(7 )=-0.487544E+02 
1225:          FCTCA1(7 )= 0.487524E+02 
1226:          FCTCA2(7 )= 0.188294E-02 
1227:          FCTCA3(7 )= 0.134929E+04 
1228:  
1229:          FCTQOS    = ZERO 
1230:  
1231: C Define the parameters for calculating atomic solvent accessible 
1232: C surface areas. 
1233:  
1234:          FCTCD1(1 )=-0.193261E+04 
1235:          FCTCD2(1 )=-0.129440E+01 
1236:          FCTCC0(1 )= 0.163304E+02 
1237:          FCTCC1(1 )=-0.163284E+02 
1238:          FCTCC2(1 )= 0.427427E-02 
1239:          FCTCC3(1 )=-0.127882E+04 
1240:  
1241:          FCTCD1(2 )=-0.377745E+04 
1242:          FCTCD2(2 )=-0.355457E+01 
1243:          FCTCC0(2 )= 0.551873E+02 
1244:          FCTCC1(2 )=-0.551853E+02 
1245:          FCTCC2(2 )= 0.160205E-02 
1246:          FCTCC3(2 )=-0.343534E+04 
1247:  
1248:          FCTCD1(3 )=-0.139512E+05 
1249:          FCTCD2(3 )=-0.268920E+01 
1250:          FCTCC0(3 )= 0.393976E+02 
1251:          FCTCC1(3 )=-0.391533E+02 
1252:          FCTCC2(3 )= 0.731149E-03 
1253:          FCTCC3(3 )=-0.765844E+04 
1254:  
1255:          FCTCD1(4 )=-0.226779E+04 
1256:          FCTCD2(4 )=-0.202926E+01 
1257:          FCTCC0(4 )= 0.167488E+03 
1258:          FCTCC1(4 )=-0.167463E+03 
1259:          FCTCC2(4 )= 0.188775E-02 
1260:          FCTCC3(4 )=-0.233942E+04 
1261:  
1262:          FCTCD1(5 )=-0.152804E+04 
1263:          FCTCD2(5 )=-0.131676E+01 
1264:          FCTCC0(5 )= 0.103612E+03 
1265:          FCTCC1(5 )=-0.103610E+03 
1266:          FCTCC2(5 )= 0.208470E-02 
1267:          FCTCC3(5 )=-0.975892E+03 
1268:  
1269:          FCTCD1(6 )=-0.149749E+04 
1270:          FCTCD2(6 )=-0.144059E+01 
1271:          FCTCC0(6 )= 0.637879E+02 
1272:          FCTCC1(6 )=-0.637859E+02 
1273:          FCTCC2(6 )= 0.288320E-02 
1274:          FCTCC3(6 )=-0.626834E+03 
1275:  
1276:          FCTCD1(7 )= 0.385298E+03 
1277:          FCTCD2(7 )=-0.212571E+01 
1278:          FCTCC0(7 )= 0.123362E+03 
1279:          FCTCC1(7 )=-0.123360E+03 
1280:          FCTCC2(7 )= 0.397702E-02 
1281:          FCTCC3(7 )=-0.249603E+03 
1282:  
1283:          FCTUOS    = ZERO 
1284:  
1285: C Define the parameters for calculating alpha. 
1286:  
1287:          FCTCF1(1 )=-0.190622E+03 
1288:          FCTCF2(1 )=-0.117281E+01 
1289:          FCTCE0(1 )= FCTAP0 
1290:          FCTCE1(1 )= FCTAP1 
1291:          FCTCE2(1 )= FCTAP2 
1292:          FCTCE3(1 )= FCTAP3 
1293:  
1294:          FCTCF1(2 )=-0.791076E+02 
1295:          FCTCF2(2 )=-0.118545E+01 
1296:          FCTCE0(2 )= FCTAP0 
1297:          FCTCE1(2 )= FCTAP1 
1298:          FCTCE2(2 )= FCTAP2 
1299:          FCTCE3(2 )= FCTAP3 
1300:  
1301:          FCTCF1(3 )=-0.311741E+02 
1302:          FCTCF2(3 )=-0.790763E+00 
1303:          FCTCE0(3 )= FCTAP0 
1304:          FCTCE1(3 )= FCTAP1 
1305:          FCTCE2(3 )= FCTAP2 
1306:          FCTCE3(3 )= FCTAP3 
1307:  
1308:          FCTCF1(4 )=-0.311741E+02 
1309:          FCTCF2(4 )=-0.790763E+00 
1310:          FCTCE0(4 )= FCTAP0 
1311:          FCTCE1(4 )= FCTAP1 
1312:          FCTCE2(4 )= FCTAP2 
1313:          FCTCE3(4 )= FCTAP3 
1314:  
1315:          FCTCF1(5 )=-0.174917E+03 
1316:          FCTCF2(5 )=-0.565937E+00 
1317:          FCTCE0(5 )= FCTAP0 
1318:          FCTCE1(5 )= FCTAP1 
1319:          FCTCE2(5 )= FCTAP2 
1320:          FCTCE3(5 )= FCTAP3 
1321:  
1322:          FCTCF1(6 )= 0.723640E+02 
1323:          FCTCF2(6 )=-0.872348E+00 
1324:          FCTCE0(6 )= FCTAP0 
1325:          FCTCE1(6 )= FCTAP1 
1326:          FCTCE2(6 )= FCTAP2 
1327:          FCTCE3(6 )= FCTAP3 
1328:  
1329:          FCTCF1(7 )= 0.229882E+03 
1330:          FCTCF2(7 )=-0.769184E+00 
1331:          FCTCE0(7 )= FCTAP0 
1332:          FCTCE1(7 )= FCTAP1 
1333:          FCTCE2(7 )= FCTAP2 
1334:          FCTCE3(7 )= FCTAP3 
1335:  
1336:          FCTVOS    = ZERO 
1337:  
1338: C Define the parameters for calculating beta. 
1339:  
1340:          FCTCH1(1 )=-0.190622E+03 
1341:          FCTCH2(1 )=-0.117281E+01 
1342:          FCTCG0(1 )= FCTBT0 
1343:          FCTCG1(1 )= FCTBT1 
1344:          FCTCG2(1 )= FCTBT2 
1345:          FCTCG3(1 )= FCTBT3 
1346:  
1347:          FCTCH1(2 )=-0.791076E+02 
1348:          FCTCH2(2 )=-0.118545E+01 
1349:          FCTCG0(2 )= FCTBT0 
1350:          FCTCG1(2 )= FCTBT1 
1351:          FCTCG2(2 )= FCTBT2 
1352:          FCTCG3(2 )= FCTBT3 
1353:  
1354:          FCTCH1(3 )=-0.311741E+02 
1355:          FCTCH2(3 )=-0.790763E+00 
1356:          FCTCG0(3 )= FCTBT0 
1357:          FCTCG1(3 )= FCTBT1 
1358:          FCTCG2(3 )= FCTBT2 
1359:          FCTCG3(3 )= FCTBT3 
1360:  
1361:          FCTCH1(4 )=-0.311741E+02 
1362:          FCTCH2(4 )=-0.790763E+00 
1363:          FCTCG0(4 )= FCTBT0 
1364:          FCTCG1(4 )= FCTBT1 
1365:          FCTCG2(4 )= FCTBT2 
1366:          FCTCG3(4 )= FCTBT3 
1367:  
1368:          FCTCH1(5 )=-0.174917E+03 
1369:          FCTCH2(5 )=-0.565937E+00 
1370:          FCTCG0(5 )= FCTBT0 
1371:          FCTCG1(5 )= FCTBT1 
1372:          FCTCG2(5 )= FCTBT2 
1373:          FCTCG3(5 )= FCTBT3 
1374:  
1375:          FCTCH1(6 )= 0.723640E+02 
1376:          FCTCH2(6 )=-0.872348E+00 
1377:          FCTCG0(6 )= FCTBT0 
1378:          FCTCG1(6 )= FCTBT1 
1379:          FCTCG2(6 )= FCTBT2 
1380:          FCTCG3(6 )= FCTBT3 
1381:  
1382:          FCTCH1(7 )= 0.229882E+03 
1383:          FCTCH2(7 )=-0.769184E+00 
1384:          FCTCG0(7 )= FCTBT0 
1385:          FCTCG1(7 )= FCTBT1 
1386:          FCTCG2(7 )= FCTBT2 
1387:          FCTCG3(7 )= FCTBT3 
1388:  
1389:          FCTWOS    = ZERO 
1390:  
1391: C Define the initial value for the measure of symmetry. 
1392:  
1393:          FCTBIN    = ONE 
1394:  
1395: C Define the factor for the exponential function in the Generalized Born 
1396: C formula. 
1397:  
1398:          FCTKPS    = FOUR 
1399:  
1400: C Define the quenching factors for the atomic solvation energies. They 
1401: C affect both atomic solvation and interaction energies. 
1402:  
1403:          FCTQUN(1 )= ONE 
1404:          FCTQUN(2 )= ONE 
1405:          FCTQUN(3 )= ONE 
1406:          FCTQUN(4 )= ONE 
1407:          FCTQUN(5 )= ONE 
1408:          FCTQUN(6 )= ONE 
1409:          FCTQUN(7 )= ONE 
1410:  
1411: C Define the scaling factors for the charges and for the FCTNPS factors. 
1412: C They only affect atomic solvation energies and the nonpolar 
1413: C contributions that are proportional to the unit charge atomic 
1414: C solvation energies. They do not affect interaction energies. 
1415:  
1416:          FCTSCF(1 )= ONE 
1417:          FCTSCF(2 )= ONE 
1418:          FCTSCF(3 )= ONE 
1419:          FCTSCF(4 )= ONE 
1420:          FCTSCF(5 )= ONE 
1421:          FCTSCF(6 )= ONE 
1422:          FCTSCF(7 )= ONE 
1423:  
1424: C Define the factors to obtain the nonpolar contributions that are 
1425: C proportional to the unit charge atomic solvation energies. 
1426:  
1427:          FCTNPS(1 )= ZERO 
1428:          FCTNPS(2 )= ZERO 
1429:          FCTNPS(3 )= ZERO 
1430:          FCTNPS(4 )= ZERO 
1431:          FCTNPS(5 )= ZERO 
1432:          FCTNPS(6 )= ZERO 
1433:          FCTNPS(7 )= ZERO 
1434:  
1435:       ENDIF 
1436:  
1437:       IF ((FCTCPS .EQ. 19    )  .AND. 
1438:      &    (FCTEPS .EQ. 1.35D0)  .AND. 
1439:      &    (FCTFPS .EQ. 2     )) THEN 
1440:  
1441: C This FACTS parameter set was derived with boundary conditions at 
1442: C negative and positive infinity. 
1443:  
1444:          FCTCHO    = .TRUE. 
1445:  
1446:          CALL WRNDIE(-4,'<FCTMEMBINI>','FACTS parameter set missing.') 
1447:  
1448:       ENDIF 
1449:  
1450:       IF ((FCTCPS .EQ. 19    )  .AND. 
1451:      &    (FCTEPS .EQ. 1.35D0)  .AND. 
1452:      &    (FCTFPS .EQ. 3     )) THEN 
1453:  
1454: C This FACTS parameter set was derived with boundary conditions at zero 
1455: C and positive infinity. 
1456:  
1457:          FCTCHO    = .TRUE. 
1458:  
1459: C Define some constants related to the dielectric medium. 
1460:  
1461:          FCTIEM    = FCTCEL/1.35D0 
1462:          FCTIES    = FCTCEL/78.5D0 
1463:          FCTTAU    = FCTIEM-FCTIES 
1464:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
1465:  
1466: C Define the number of native van der Waals radii. 
1467:  
1468:          FCTNNV    = 7 
1469:  
1470: C Define the number of actual van der Waals radii. 
1471:  
1472:          FCTNAV    = 7 
1473:  
1474: C Define the native van der Waals radii. 
1475:  
1476:          FCTRVW(1 )= 1.0000D0 
1477:          FCTRVW(2 )= 1.6000D0 
1478:          FCTRVW(3 )= 1.8900D0 
1479:          FCTRVW(4 )= 2.1000D0 
1480:          FCTRVW(5 )= 2.1650D0 
1481:          FCTRVW(6 )= 2.2350D0 
1482:          FCTRVW(7 )= 2.3650D0 
1483:  
1484: C Define the cutoffs for the FACTS self and interaction energy pair 
1485: C lists. 
1486:  
1487:          FCTCSL    =11.0D0 
1488:          FCTCIL    = 8.5D0 
1489:  
1490: C Define the cutoffs for the FACTS self and interaction energy 
1491: C calculations. 
1492:  
1493:          FCTCSC(1 )= 0.712391E+01 
1494:          FCTCSC(2 )= 0.848390E+01 
1495:          FCTCSC(3 )= 0.863555E+01 
1496:          FCTCSC(4 )= 0.939229E+01 
1497:          FCTCSC(5 )= 0.995147E+01 
1498:          FCTCSC(6 )= 0.941218E+01 
1499:          FCTCSC(7 )= 0.100000E+02 
1500:          FCTCIC    = 7.5D0 
1501:  
1502: C Define the parameters for calculating atomic solvation energies. 
1503:  
1504:          FCTCB1(1 )= 0.135120E+03 
1505:          FCTCB2(1 )=-0.132289E+01 
1506:          FCTCA0(1 )=-0.609686E+03 
1507:          FCTCA1(1 )= 0.609684E+03 
1508:          FCTCA2(1 )= 0.329844E-02 
1509:          FCTCA3(1 )=-0.423607E+03 
1510:  
1511:          FCTCB1(2 )= 0.222798E+03 
1512:          FCTCB2(2 )=-0.132650E+01 
1513:          FCTCA0(2 )=-0.204518E+03 
1514:          FCTCA1(2 )= 0.204516E+03 
1515:          FCTCA2(2 )= 0.169364E-02 
1516:          FCTCA3(2 )=-0.315813E+03 
1517:  
1518:          FCTCB1(3 )= 0.332295E+03 
1519:          FCTCB2(3 )=-0.110545E+01 
1520:          FCTCA0(3 )=-0.807187E+02 
1521:          FCTCA1(3 )= 0.807167E+02 
1522:          FCTCA2(3 )= 0.154687E-02 
1523:          FCTCA3(3 )= 0.588528E+03 
1524:  
1525:          FCTCB1(4 )= 0.332295E+03 
1526:          FCTCB2(4 )=-0.110545E+01 
1527:          FCTCA0(4 )=-0.807187E+02 
1528:          FCTCA1(4 )= 0.807167E+02 
1529:          FCTCA2(4 )= 0.154687E-02 
1530:          FCTCA3(4 )= 0.588528E+03 
1531:  
1532:          FCTCB1(5 )= 0.384086E+03 
1533:          FCTCB2(5 )=-0.921494E+00 
1534:          FCTCA0(5 )=-0.614733E+02 
1535:          FCTCA1(5 )= 0.614713E+02 
1536:          FCTCA2(5 )= 0.209863E-02 
1537:          FCTCA3(5 )= 0.109215E+04 
1538:  
1539:          FCTCB1(6 )= 0.422800E+03 
1540:          FCTCB2(6 )=-0.115653E+01 
1541:          FCTCA0(6 )=-0.643363E+02 
1542:          FCTCA1(6 )= 0.643343E+02 
1543:          FCTCA2(6 )= 0.198577E-02 
1544:          FCTCA3(6 )= 0.837368E+03 
1545:  
1546:          FCTCB1(7 )= 0.809985E+03 
1547:          FCTCB2(7 )=-0.128354E+01 
1548:          FCTCA0(7 )=-0.607427E+02 
1549:          FCTCA1(7 )= 0.607407E+02 
1550:          FCTCA2(7 )= 0.157274E-02 
1551:          FCTCA3(7 )= 0.106104E+04 
1552:  
1553:          FCTQOS    = ZERO 
1554:  
1555: C Define the parameters for calculating atomic solvent accessible 
1556: C surface areas. 
1557:  
1558:          FCTCD1(1 )=-0.193261E+04 
1559:          FCTCD2(1 )=-0.129440E+01 
1560:          FCTCC0(1 )= 0.163304E+02 
1561:          FCTCC1(1 )=-0.163284E+02 
1562:          FCTCC2(1 )= 0.427427E-02 
1563:          FCTCC3(1 )=-0.127882E+04 
1564:  
1565:          FCTCD1(2 )=-0.377745E+04 
1566:          FCTCD2(2 )=-0.355457E+01 
1567:          FCTCC0(2 )= 0.551873E+02 
1568:          FCTCC1(2 )=-0.551853E+02 
1569:          FCTCC2(2 )= 0.160205E-02 
1570:          FCTCC3(2 )=-0.343534E+04 
1571:  
1572:          FCTCD1(3 )=-0.139512E+05 
1573:          FCTCD2(3 )=-0.268920E+01 
1574:          FCTCC0(3 )= 0.393976E+02 
1575:          FCTCC1(3 )=-0.391533E+02 
1576:          FCTCC2(3 )= 0.731149E-03 
1577:          FCTCC3(3 )=-0.765844E+04 
1578:  
1579:          FCTCD1(4 )=-0.226779E+04 
1580:          FCTCD2(4 )=-0.202926E+01 
1581:          FCTCC0(4 )= 0.167488E+03 
1582:          FCTCC1(4 )=-0.167463E+03 
1583:          FCTCC2(4 )= 0.188775E-02 
1584:          FCTCC3(4 )=-0.233942E+04 
1585:  
1586:          FCTCD1(5 )=-0.152804E+04 
1587:          FCTCD2(5 )=-0.131676E+01 
1588:          FCTCC0(5 )= 0.103612E+03 
1589:          FCTCC1(5 )=-0.103610E+03 
1590:          FCTCC2(5 )= 0.208470E-02 
1591:          FCTCC3(5 )=-0.975892E+03 
1592:  
1593:          FCTCD1(6 )=-0.149749E+04 
1594:          FCTCD2(6 )=-0.144059E+01 
1595:          FCTCC0(6 )= 0.637879E+02 
1596:          FCTCC1(6 )=-0.637859E+02 
1597:          FCTCC2(6 )= 0.288320E-02 
1598:          FCTCC3(6 )=-0.626834E+03 
1599:  
1600:          FCTCD1(7 )= 0.385298E+03 
1601:          FCTCD2(7 )=-0.212571E+01 
1602:          FCTCC0(7 )= 0.123362E+03 
1603:          FCTCC1(7 )=-0.123360E+03 
1604:          FCTCC2(7 )= 0.397702E-02 
1605:          FCTCC3(7 )=-0.249603E+03 
1606:  
1607:          FCTUOS    = ZERO 
1608:  
1609: C Define the parameters for calculating alpha. 
1610:  
1611:          FCTCF1(1 )= 0.135120E+03 
1612:          FCTCF2(1 )=-0.132289E+01 
1613:          FCTCE0(1 )= FCTAP0 
1614:          FCTCE1(1 )= FCTAP1 
1615:          FCTCE2(1 )= FCTAP2 
1616:          FCTCE3(1 )= FCTAP3 
1617:  
1618:          FCTCF1(2 )= 0.222798E+03 
1619:          FCTCF2(2 )=-0.132650E+01 
1620:          FCTCE0(2 )= FCTAP0 
1621:          FCTCE1(2 )= FCTAP1 
1622:          FCTCE2(2 )= FCTAP2 
1623:          FCTCE3(2 )= FCTAP3 
1624:  
1625:          FCTCF1(3 )= 0.332295E+03 
1626:          FCTCF2(3 )=-0.110545E+01 
1627:          FCTCE0(3 )= FCTAP0 
1628:          FCTCE1(3 )= FCTAP1 
1629:          FCTCE2(3 )= FCTAP2 
1630:          FCTCE3(3 )= FCTAP3 
1631:  
1632:          FCTCF1(4 )= 0.332295E+03 
1633:          FCTCF2(4 )=-0.110545E+01 
1634:          FCTCE0(4 )= FCTAP0 
1635:          FCTCE1(4 )= FCTAP1 
1636:          FCTCE2(4 )= FCTAP2 
1637:          FCTCE3(4 )= FCTAP3 
1638:  
1639:          FCTCF1(5 )= 0.384086E+03 
1640:          FCTCF2(5 )=-0.921494E+00 
1641:          FCTCE0(5 )= FCTAP0 
1642:          FCTCE1(5 )= FCTAP1 
1643:          FCTCE2(5 )= FCTAP2 
1644:          FCTCE3(5 )= FCTAP3 
1645:  
1646:          FCTCF1(6 )= 0.422800E+03 
1647:          FCTCF2(6 )=-0.115653E+01 
1648:          FCTCE0(6 )= FCTAP0 
1649:          FCTCE1(6 )= FCTAP1 
1650:          FCTCE2(6 )= FCTAP2 
1651:          FCTCE3(6 )= FCTAP3 
1652:  
1653:          FCTCF1(7 )= 0.809985E+03 
1654:          FCTCF2(7 )=-0.128354E+01 
1655:          FCTCE0(7 )= FCTAP0 
1656:          FCTCE1(7 )= FCTAP1 
1657:          FCTCE2(7 )= FCTAP2 
1658:          FCTCE3(7 )= FCTAP3 
1659:  
1660:          FCTVOS    = ZERO 
1661:  
1662: C Define the parameters for calculating beta. 
1663:  
1664:          FCTCH1(1 )= 0.135120E+03 
1665:          FCTCH2(1 )=-0.132289E+01 
1666:          FCTCG0(1 )= FCTBT0 
1667:          FCTCG1(1 )= FCTBT1 
1668:          FCTCG2(1 )= FCTBT2 
1669:          FCTCG3(1 )= FCTBT3 
1670:  
1671:          FCTCH1(2 )= 0.222798E+03 
1672:          FCTCH2(2 )=-0.132650E+01 
1673:          FCTCG0(2 )= FCTBT0 
1674:          FCTCG1(2 )= FCTBT1 
1675:          FCTCG2(2 )= FCTBT2 
1676:          FCTCG3(2 )= FCTBT3 
1677:  
1678:          FCTCH1(3 )= 0.332295E+03 
1679:          FCTCH2(3 )=-0.110545E+01 
1680:          FCTCG0(3 )= FCTBT0 
1681:          FCTCG1(3 )= FCTBT1 
1682:          FCTCG2(3 )= FCTBT2 
1683:          FCTCG3(3 )= FCTBT3 
1684:  
1685:          FCTCH1(4 )= 0.332295E+03 
1686:          FCTCH2(4 )=-0.110545E+01 
1687:          FCTCG0(4 )= FCTBT0 
1688:          FCTCG1(4 )= FCTBT1 
1689:          FCTCG2(4 )= FCTBT2 
1690:          FCTCG3(4 )= FCTBT3 
1691:  
1692:          FCTCH1(5 )= 0.384086E+03 
1693:          FCTCH2(5 )=-0.921494E+00 
1694:          FCTCG0(5 )= FCTBT0 
1695:          FCTCG1(5 )= FCTBT1 
1696:          FCTCG2(5 )= FCTBT2 
1697:          FCTCG3(5 )= FCTBT3 
1698:  
1699:          FCTCH1(6 )= 0.422800E+03 
1700:          FCTCH2(6 )=-0.115653E+01 
1701:          FCTCG0(6 )= FCTBT0 
1702:          FCTCG1(6 )= FCTBT1 
1703:          FCTCG2(6 )= FCTBT2 
1704:          FCTCG3(6 )= FCTBT3 
1705:  
1706:          FCTCH1(7 )= 0.809985E+03 
1707:          FCTCH2(7 )=-0.128354E+01 
1708:          FCTCG0(7 )= FCTBT0 
1709:          FCTCG1(7 )= FCTBT1 
1710:          FCTCG2(7 )= FCTBT2 
1711:          FCTCG3(7 )= FCTBT3 
1712:  
1713:          FCTWOS    = ZERO 
1714:  
1715: C Define the initial value for the measure of symmetry. 
1716:  
1717:          FCTBIN    = ONE 
1718:  
1719: C Define the factor for the exponential function in the Generalized Born 
1720: C formula. 
1721:  
1722:          FCTKPS    = FOUR 
1723:  
1724: C Define the quenching factors for the atomic solvation energies. They 
1725: C affect both atomic solvation and interaction energies. 
1726:  
1727:          FCTQUN(1 )= ONE 
1728:          FCTQUN(2 )= ONE 
1729:          FCTQUN(3 )= ONE 
1730:          FCTQUN(4 )= ONE 
1731:          FCTQUN(5 )= ONE 
1732:          FCTQUN(6 )= ONE 
1733:          FCTQUN(7 )= ONE 
1734:  
1735: C Define the scaling factors for the charges and for the FCTNPS factors. 
1736: C They only affect atomic solvation energies and the nonpolar 
1737: C contributions that are proportional to the unit charge atomic 
1738: C solvation energies. They do not affect interaction energies. 
1739:  
1740:          FCTSCF(1 )= ONE 
1741:          FCTSCF(2 )= ONE 
1742:          FCTSCF(3 )= ONE 
1743:          FCTSCF(4 )= ONE 
1744:          FCTSCF(5 )= ONE 
1745:          FCTSCF(6 )= ONE 
1746:          FCTSCF(7 )= ONE 
1747:  
1748: C Define the factors to obtain the nonpolar contributions that are 
1749: C proportional to the unit charge atomic solvation energies. 
1750:  
1751:          FCTNPS(1 )= ZERO 
1752:          FCTNPS(2 )= ZERO 
1753:          FCTNPS(3 )= ZERO 
1754:          FCTNPS(4 )= ZERO 
1755:          FCTNPS(5 )= ZERO 
1756:          FCTNPS(6 )= ZERO 
1757:          FCTNPS(7 )= ZERO 
1758:  
1759:       ENDIF 
1760:  
1761:       IF ((FCTCPS .EQ. 19    )  .AND. 
1762:      &    (FCTEPS .EQ. TWO   )  .AND. 
1763:      &    (FCTFPS .EQ. 1     )) THEN 
1764:  
1765: C This FACTS parameter set was derived with no boundary conditions. 
1766:  
1767:          FCTCHO    = .TRUE. 
1768:  
1769: C Define some constants related to the dielectric medium. 
1770:  
1771:          FCTIEM    = FCTCEL/TWO 
1772:          FCTIES    = FCTCEL/78.5D0 
1773:          FCTTAU    = FCTIEM-FCTIES 
1774:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
1775:  
1776: C Define the number of native van der Waals radii. 
1777:  
1778:          FCTNNV    = 7 
1779:  
1780: C Define the number of actual van der Waals radii. 
1781:  
1782:          FCTNAV    = 7 
1783:  
1784: C Define the native van der Waals radii. 
1785:  
1786:          FCTRVW(1 )= 1.0000D0 
1787:          FCTRVW(2 )= 1.6000D0 
1788:          FCTRVW(3 )= 1.8900D0 
1789:          FCTRVW(4 )= 2.1000D0 
1790:          FCTRVW(5 )= 2.1650D0 
1791:          FCTRVW(6 )= 2.2350D0 
1792:          FCTRVW(7 )= 2.3650D0 
1793:  
1794: C Define the cutoffs for the FACTS self and interaction energy pair 
1795: C lists. 
1796:  
1797:          FCTCSL    =11.0D0 
1798:          FCTCIL    = 8.5D0 
1799:  
1800: C Define the cutoffs for the FACTS self and interaction energy 
1801: C calculations. 
1802:  
1803:          FCTCSC(1 )= 0.738180E+01 
1804:          FCTCSC(2 )= 0.853395E+01 
1805:          FCTCSC(3 )= 0.902031E+01 
1806:          FCTCSC(4 )= 0.956589E+01 
1807:          FCTCSC(5 )= 0.100000E+02 
1808:          FCTCSC(6 )= 0.941392E+01 
1809:          FCTCSC(7 )= 0.100000E+02 
1810:          FCTCIC    = 7.5D0 
1811:  
1812: C Define the parameters for calculating atomic solvation energies. 
1813:  
1814:          FCTCB1(1 )=-0.211263E+03 
1815:          FCTCB2(1 )=-0.120766E+01 
1816:          FCTCA0(1 )=-0.711374E+02 
1817:          FCTCA1(1 )= 0.610582E+02 
1818:          FCTCA2(1 )= 0.562288E-02 
1819:          FCTCA3(1 )= 0.143854E+03 
1820:  
1821:          FCTCB1(2 )=-0.161267E+03 
1822:          FCTCB2(2 )=-0.102811E+01 
1823:          FCTCA0(2 )=-0.537462E+02 
1824:          FCTCA1(2 )= 0.516011E+02 
1825:          FCTCA2(2 )= 0.241634E-02 
1826:          FCTCA3(2 )= 0.448738E+03 
1827:  
1828:          FCTCB1(3 )= 0.243420E+03 
1829:          FCTCB2(3 )=-0.935265E+00 
1830:          FCTCA0(3 )=-0.389775E+02 
1831:          FCTCA1(3 )= 0.339534E+02 
1832:          FCTCA2(3 )= 0.365658E-02 
1833:          FCTCA3(3 )= 0.803406E+03 
1834:  
1835:          FCTCB1(4 )=-0.218802E+03 
1836:          FCTCB2(4 )=-0.614302E+00 
1837:          FCTCA0(4 )=-0.389967E+02 
1838:          FCTCA1(4 )= 0.389947E+02 
1839:          FCTCA2(4 )= 0.182234E-02 
1840:          FCTCA3(4 )= 0.999663E+03 
1841:  
1842:          FCTCB1(5 )=-0.245572E+03 
1843:          FCTCB2(5 )=-0.434034E+00 
1844:          FCTCA0(5 )=-0.349332E+02 
1845:          FCTCA1(5 )= 0.349312E+02 
1846:          FCTCA2(5 )= 0.239099E-02 
1847:          FCTCA3(5 )= 0.124506E+04 
1848:  
1849:          FCTCB1(6 )= 0.773192E+02 
1850:          FCTCB2(6 )=-0.856250E+00 
1851:          FCTCA0(6 )=-0.365072E+02 
1852:          FCTCA1(6 )= 0.365052E+02 
1853:          FCTCA2(6 )= 0.221413E-02 
1854:          FCTCA3(6 )= 0.990781E+03 
1855:  
1856:          FCTCB1(7 )= 0.187208E+03 
1857:          FCTCB2(7 )=-0.735135E+00 
1858:          FCTCA0(7 )=-0.321476E+02 
1859:          FCTCA1(7 )= 0.321456E+02 
1860:          FCTCA2(7 )= 0.196335E-02 
1861:          FCTCA3(7 )= 0.134031E+04 
1862:  
1863:          FCTQOS    = ZERO 
1864:  
1865: C Define the parameters for calculating atomic solvent accessible 
1866: C surface areas. 
1867:  
1868:          FCTCD1(1 )=-0.193261E+04 
1869:          FCTCD2(1 )=-0.129440E+01 
1870:          FCTCC0(1 )= 0.163304E+02 
1871:          FCTCC1(1 )=-0.163284E+02 
1872:          FCTCC2(1 )= 0.427427E-02 
1873:          FCTCC3(1 )=-0.127882E+04 
1874:  
1875:          FCTCD1(2 )=-0.377745E+04 
1876:          FCTCD2(2 )=-0.355457E+01 
1877:          FCTCC0(2 )= 0.551873E+02 
1878:          FCTCC1(2 )=-0.551853E+02 
1879:          FCTCC2(2 )= 0.160205E-02 
1880:          FCTCC3(2 )=-0.343534E+04 
1881:  
1882:          FCTCD1(3 )=-0.110519E+05 
1883:          FCTCD2(3 )=-0.276237E+01 
1884:          FCTCC0(3 )= 0.399838E+02 
1885:          FCTCC1(3 )=-0.398897E+02 
1886:          FCTCC2(3 )= 0.918397E-03 
1887:          FCTCC3(3 )=-0.610549E+04 
1888:  
1889:          FCTCD1(4 )=-0.732548E+03 
1890:          FCTCD2(4 )=-0.210098E+01 
1891:          FCTCC0(4 )= 0.160195E+03 
1892:          FCTCC1(4 )=-0.160146E+03 
1893:          FCTCC2(4 )= 0.355838E-02 
1894:          FCTCC3(4 )=-0.100191E+04 
1895:  
1896:          FCTCD1(5 )=-0.152804E+04 
1897:          FCTCD2(5 )=-0.131676E+01 
1898:          FCTCC0(5 )= 0.103612E+03 
1899:          FCTCC1(5 )=-0.103610E+03 
1900:          FCTCC2(5 )= 0.208470E-02 
1901:          FCTCC3(5 )=-0.975892E+03 
1902:  
1903:          FCTCD1(6 )=-0.174048E+04 
1904:          FCTCD2(6 )=-0.124393E+01 
1905:          FCTCC0(6 )= 0.590390E+02 
1906:          FCTCC1(6 )=-0.590370E+02 
1907:          FCTCC2(6 )= 0.302113E-02 
1908:          FCTCC3(6 )=-0.643231E+03 
1909:  
1910:          FCTCD1(7 )= 0.386309E+03 
1911:          FCTCD2(7 )=-0.211465E+01 
1912:          FCTCC0(7 )= 0.123365E+03 
1913:          FCTCC1(7 )=-0.123363E+03 
1914:          FCTCC2(7 )= 0.395129E-02 
1915:          FCTCC3(7 )=-0.249600E+03 
1916:  
1917:          FCTUOS    = ZERO 
1918:  
1919: C Define the parameters for calculating alpha. 
1920:  
1921:          FCTCF1(1 )=-0.211263E+03 
1922:          FCTCF2(1 )=-0.120766E+01 
1923:          FCTCE0(1 )= FCTAP0 
1924:          FCTCE1(1 )= FCTAP1 
1925:          FCTCE2(1 )= FCTAP2 
1926:          FCTCE3(1 )= FCTAP3 
1927:  
1928:          FCTCF1(2 )=-0.161267E+03 
1929:          FCTCF2(2 )=-0.102811E+01 
1930:          FCTCE0(2 )= FCTAP0 
1931:          FCTCE1(2 )= FCTAP1 
1932:          FCTCE2(2 )= FCTAP2 
1933:          FCTCE3(2 )= FCTAP3 
1934:  
1935:          FCTCF1(3 )= 0.243420E+03 
1936:          FCTCF2(3 )=-0.935265E+00 
1937:          FCTCE0(3 )= FCTAP0 
1938:          FCTCE1(3 )= FCTAP1 
1939:          FCTCE2(3 )= FCTAP2 
1940:          FCTCE3(3 )= FCTAP3 
1941:  
1942:          FCTCF1(4 )=-0.218802E+03 
1943:          FCTCF2(4 )=-0.614302E+00 
1944:          FCTCE0(4 )= FCTAP0 
1945:          FCTCE1(4 )= FCTAP1 
1946:          FCTCE2(4 )= FCTAP2 
1947:          FCTCE3(4 )= FCTAP3 
1948:  
1949:          FCTCF1(5 )=-0.245572E+03 
1950:          FCTCF2(5 )=-0.434034E+00 
1951:          FCTCE0(5 )= FCTAP0 
1952:          FCTCE1(5 )= FCTAP1 
1953:          FCTCE2(5 )= FCTAP2 
1954:          FCTCE3(5 )= FCTAP3 
1955:  
1956:          FCTCF1(6 )= 0.773192E+02 
1957:          FCTCF2(6 )=-0.856250E+00 
1958:          FCTCE0(6 )= FCTAP0 
1959:          FCTCE1(6 )= FCTAP1 
1960:          FCTCE2(6 )= FCTAP2 
1961:          FCTCE3(6 )= FCTAP3 
1962:  
1963:          FCTCF1(7 )= 0.187208E+03 
1964:          FCTCF2(7 )=-0.735135E+00 
1965:          FCTCE0(7 )= FCTAP0 
1966:          FCTCE1(7 )= FCTAP1 
1967:          FCTCE2(7 )= FCTAP2 
1968:          FCTCE3(7 )= FCTAP3 
1969:  
1970:          FCTVOS    = ZERO 
1971:  
1972: C Define the parameters for calculating beta. 
1973:  
1974:          FCTCH1(1 )=-0.211263E+03 
1975:          FCTCH2(1 )=-0.120766E+01 
1976:          FCTCG0(1 )= FCTBT0 
1977:          FCTCG1(1 )= FCTBT1 
1978:          FCTCG2(1 )= FCTBT2 
1979:          FCTCG3(1 )= FCTBT3 
1980:  
1981:          FCTCH1(2 )=-0.161267E+03 
1982:          FCTCH2(2 )=-0.102811E+01 
1983:          FCTCG0(2 )= FCTBT0 
1984:          FCTCG1(2 )= FCTBT1 
1985:          FCTCG2(2 )= FCTBT2 
1986:          FCTCG3(2 )= FCTBT3 
1987:  
1988:          FCTCH1(3 )= 0.243420E+03 
1989:          FCTCH2(3 )=-0.935265E+00 
1990:          FCTCG0(3 )= FCTBT0 
1991:          FCTCG1(3 )= FCTBT1 
1992:          FCTCG2(3 )= FCTBT2 
1993:          FCTCG3(3 )= FCTBT3 
1994:  
1995:          FCTCH1(4 )=-0.218802E+03 
1996:          FCTCH2(4 )=-0.614302E+00 
1997:          FCTCG0(4 )= FCTBT0 
1998:          FCTCG1(4 )= FCTBT1 
1999:          FCTCG2(4 )= FCTBT2 
2000:          FCTCG3(4 )= FCTBT3 
2001:  
2002:          FCTCH1(5 )=-0.245572E+03 
2003:          FCTCH2(5 )=-0.434034E+00 
2004:          FCTCG0(5 )= FCTBT0 
2005:          FCTCG1(5 )= FCTBT1 
2006:          FCTCG2(5 )= FCTBT2 
2007:          FCTCG3(5 )= FCTBT3 
2008:  
2009:          FCTCH1(6 )= 0.773192E+02 
2010:          FCTCH2(6 )=-0.856250E+00 
2011:          FCTCG0(6 )= FCTBT0 
2012:          FCTCG1(6 )= FCTBT1 
2013:          FCTCG2(6 )= FCTBT2 
2014:          FCTCG3(6 )= FCTBT3 
2015:  
2016:          FCTCH1(7 )= 0.187208E+03 
2017:          FCTCH2(7 )=-0.735135E+00 
2018:          FCTCG0(7 )= FCTBT0 
2019:          FCTCG1(7 )= FCTBT1 
2020:          FCTCG2(7 )= FCTBT2 
2021:          FCTCG3(7 )= FCTBT3 
2022:  
2023:          FCTWOS    = ZERO 
2024:  
2025: C Define the initial value for the measure of symmetry. 
2026:  
2027:          FCTBIN    = ONE 
2028:  
2029: C Define the factor for the exponential function in the Generalized Born 
2030: C formula. 
2031:  
2032:          FCTKPS    = FOUR 
2033:  
2034: C Define the quenching factors for the atomic solvation energies. They 
2035: C affect both atomic solvation and interaction energies. 
2036:  
2037:          FCTQUN(1 )= ONE 
2038:          FCTQUN(2 )= ONE 
2039:          FCTQUN(3 )= ONE 
2040:          FCTQUN(4 )= ONE 
2041:          FCTQUN(5 )= ONE 
2042:          FCTQUN(6 )= ONE 
2043:          FCTQUN(7 )= ONE 
2044:  
2045: C Define the scaling factors for the charges and for the FCTNPS factors. 
2046: C They only affect atomic solvation energies and the nonpolar 
2047: C contributions that are proportional to the unit charge atomic 
2048: C solvation energies. They do not affect interaction energies. 
2049:  
2050:          FCTSCF(1 )= ONE 
2051:          FCTSCF(2 )= ONE 
2052:          FCTSCF(3 )= ONE 
2053:          FCTSCF(4 )= ONE 
2054:          FCTSCF(5 )= ONE 
2055:          FCTSCF(6 )= ONE 
2056:          FCTSCF(7 )= ONE 
2057:  
2058: C Define the factors to obtain the nonpolar contributions that are 
2059: C proportional to the unit charge atomic solvation energies. 
2060:  
2061:          FCTNPS(1 )= ZERO 
2062:          FCTNPS(2 )= ZERO 
2063:          FCTNPS(3 )= ZERO 
2064:          FCTNPS(4 )= ZERO 
2065:          FCTNPS(5 )= ZERO 
2066:          FCTNPS(6 )= ZERO 
2067:          FCTNPS(7 )= ZERO 
2068:  
2069:       ENDIF 
2070:  
2071:       IF ((FCTCPS .EQ. 19    )  .AND. 
2072:      &    (FCTEPS .EQ. TWO   )  .AND. 
2073:      &    (FCTFPS .EQ. 2     )) THEN 
2074:  
2075: C This FACTS parameter set was derived with boundary conditions at 
2076: C negative and positive infinity. 
2077:  
2078:          FCTCHO    = .TRUE. 
2079:  
2080: C Define some constants related to the dielectric medium. 
2081:  
2082:          FCTIEM    = FCTCEL/TWO 
2083:          FCTIES    = FCTCEL/78.5D0 
2084:          FCTTAU    = FCTIEM-FCTIES 
2085:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
2086:  
2087: C Define the number of native van der Waals radii. 
2088:  
2089:          FCTNNV    = 7 
2090:  
2091: C Define the number of actual van der Waals radii. 
2092:  
2093:          FCTNAV    = 7 
2094:  
2095: C Define the native van der Waals radii. 
2096:  
2097:          FCTRVW(1 )= 1.0000D0 
2098:          FCTRVW(2 )= 1.6000D0 
2099:          FCTRVW(3 )= 1.8900D0 
2100:          FCTRVW(4 )= 2.1000D0 
2101:          FCTRVW(5 )= 2.1650D0 
2102:          FCTRVW(6 )= 2.2350D0 
2103:          FCTRVW(7 )= 2.3650D0 
2104:  
2105: C Define the cutoffs for the FACTS self and interaction energy pair 
2106: C lists. 
2107:  
2108:          FCTCSL    =11.0D0 
2109:          FCTCIL    = 8.5D0 
2110:  
2111: C Define the cutoffs for the FACTS self and interaction energy 
2112: C calculations. 
2113:  
2114:          FCTCSC(1 )= 0.739987E+01 
2115:          FCTCSC(2 )= 0.852134E+01 
2116:          FCTCSC(3 )= 0.917499E+01 
2117:          FCTCSC(4 )= 0.956171E+01 
2118:          FCTCSC(5 )= 0.100000E+02 
2119:          FCTCSC(6 )= 0.941730E+01 
2120:          FCTCSC(7 )= 0.100000E+02 
2121:          FCTCIC    = 7.5D0 
2122:  
2123: C Define the parameters for calculating atomic solvation energies. 
2124:  
2125:          FCTCB1(1 )=-0.317834E+03 
2126:          FCTCB2(1 )=-0.112417E+01 
2127:          FCTCA0(1 )=-0.809028E+02 
2128:          FCTCA1(1 )= 0.809008E+02 
2129:          FCTCA2(1 )= 0.339314E-02 
2130:          FCTCA3(1 )= 0.116192E+03 
2131:  
2132:          FCTCB1(2 )=-0.393021E+03 
2133:          FCTCB2(2 )=-0.816398E+00 
2134:          FCTCA0(2 )=-0.505642E+02 
2135:          FCTCA1(2 )= 0.505622E+02 
2136:          FCTCA2(2 )= 0.226296E-02 
2137:          FCTCA3(2 )= 0.518247E+03 
2138:  
2139:          FCTCB1(3 )= 0.243318E+03 
2140:          FCTCB2(3 )=-0.955083E+00 
2141:          FCTCA0(3 )=-0.428057E+02 
2142:          FCTCA1(3 )= 0.428037E+02 
2143:          FCTCA2(3 )= 0.254306E-02 
2144:          FCTCA3(3 )= 0.862465E+03 
2145:  
2146:          FCTCB1(4 )=-0.263481E+03 
2147:          FCTCB2(4 )=-0.573028E+00 
2148:          FCTCA0(4 )=-0.385251E+02 
2149:          FCTCA1(4 )= 0.385231E+02 
2150:          FCTCA2(4 )= 0.183784E-02 
2151:          FCTCA3(4 )= 0.101234E+04 
2152:  
2153:          FCTCB1(5 )= 0.193948E+03 
2154:          FCTCB2(5 )=-0.749211E+00 
2155:          FCTCA0(5 )=-0.373685E+02 
2156:          FCTCA1(5 )= 0.373665E+02 
2157:          FCTCA2(5 )= 0.235559E-02 
2158:          FCTCA3(5 )= 0.118302E+04 
2159:  
2160:          FCTCB1(6 )= 0.468378E+02 
2161:          FCTCB2(6 )=-0.827901E+00 
2162:          FCTCA0(6 )=-0.361981E+02 
2163:          FCTCA1(6 )= 0.361961E+02 
2164:          FCTCA2(6 )= 0.222188E-02 
2165:          FCTCA3(6 )= 0.999628E+03 
2166:  
2167:          FCTCB1(7 )= 0.438806E+03 
2168:          FCTCB2(7 )=-0.945418E+00 
2169:          FCTCA0(7 )=-0.342084E+02 
2170:          FCTCA1(7 )= 0.342064E+02 
2171:          FCTCA2(7 )= 0.185526E-02 
2172:          FCTCA3(7 )= 0.126483E+04 
2173:  
2174:          FCTQOS    = ZERO 
2175:  
2176: C Define the parameters for calculating atomic solvent accessible 
2177: C surface areas. 
2178:  
2179:          FCTCD1(1 )=-0.146127E+04 
2180:          FCTCD2(1 )=-0.152459E+01 
2181:          FCTCC0(1 )= 0.723823E+02 
2182:          FCTCC1(1 )=-0.723803E+02 
2183:          FCTCC2(1 )= 0.278988E-02 
2184:          FCTCC3(1 )=-0.183088E+04 
2185:  
2186:          FCTCD1(2 )=-0.595514E+04 
2187:          FCTCD2(2 )=-0.520513E+01 
2188:          FCTCC0(2 )= 0.113097E+03 
2189:          FCTCC1(2 )=-0.113095E+03 
2190:          FCTCC2(2 )= 0.883239E-03 
2191:          FCTCC3(2 )=-0.681803E+04 
2192:  
2193:          FCTCD1(3 )=-0.287917E+03 
2194:          FCTCD2(3 )=-0.185258E+01 
2195:          FCTCC0(3 )= 0.136020E+03 
2196:          FCTCC1(3 )=-0.136018E+03 
2197:          FCTCC2(3 )= 0.422977E-02 
2198:          FCTCC3(3 )=-0.565971E+03 
2199:  
2200:          FCTCD1(4 )=-0.201670E+04 
2201:          FCTCD2(4 )=-0.229274E+01 
2202:          FCTCC0(4 )= 0.153938E+03 
2203:          FCTCC1(4 )=-0.153936E+03 
2204:          FCTCC2(4 )= 0.221780E-02 
2205:          FCTCC3(4 )=-0.207534E+04 
2206:  
2207:          FCTCD1(5 )=-0.625795E+03 
2208:          FCTCD2(5 )=-0.142591E+01 
2209:          FCTCC0(5 )= 0.159709E+03 
2210:          FCTCC1(5 )=-0.159707E+03 
2211:          FCTCC2(5 )= 0.247873E-02 
2212:          FCTCC3(5 )=-0.715735E+03 
2213:  
2214:          FCTCD1(6 )=-0.153128E+03 
2215:          FCTCD2(6 )=-0.158520E+01 
2216:          FCTCC0(6 )= 0.166042E+03 
2217:          FCTCC1(6 )=-0.166040E+03 
2218:          FCTCC2(6 )= 0.394806E-02 
2219:          FCTCC3(6 )=-0.355894E+03 
2220:  
2221:          FCTCD1(7 )= 0.290940E+03 
2222:          FCTCD2(7 )=-0.210886E+01 
2223:          FCTCC0(7 )= 0.178131E+03 
2224:          FCTCC1(7 )=-0.178129E+03 
2225:          FCTCC2(7 )= 0.370899E-02 
2226:          FCTCC3(7 )=-0.433283E+03 
2227:  
2228:          FCTUOS    = ZERO 
2229:  
2230: C Define the parameters for calculating alpha. 
2231:  
2232:          FCTCF1(1 )=-0.317834E+03 
2233:          FCTCF2(1 )=-0.112417E+01 
2234:          FCTCE0(1 )= FCTAP0 
2235:          FCTCE1(1 )= FCTAP1 
2236:          FCTCE2(1 )= FCTAP2 
2237:          FCTCE3(1 )= FCTAP3 
2238:  
2239:          FCTCF1(2 )=-0.393021E+03 
2240:          FCTCF2(2 )=-0.816398E+00 
2241:          FCTCE0(2 )= FCTAP0 
2242:          FCTCE1(2 )= FCTAP1 
2243:          FCTCE2(2 )= FCTAP2 
2244:          FCTCE3(2 )= FCTAP3 
2245:  
2246:          FCTCF1(3 )= 0.243318E+03 
2247:          FCTCF2(3 )=-0.955083E+00 
2248:          FCTCE0(3 )= FCTAP0 
2249:          FCTCE1(3 )= FCTAP1 
2250:          FCTCE2(3 )= FCTAP2 
2251:          FCTCE3(3 )= FCTAP3 
2252:  
2253:          FCTCF1(4 )=-0.263481E+03 
2254:          FCTCF2(4 )=-0.573028E+00 
2255:          FCTCE0(4 )= FCTAP0 
2256:          FCTCE1(4 )= FCTAP1 
2257:          FCTCE2(4 )= FCTAP2 
2258:          FCTCE3(4 )= FCTAP3 
2259:  
2260:          FCTCF1(5 )= 0.193948E+03 
2261:          FCTCF2(5 )=-0.749211E+00 
2262:          FCTCE0(5 )= FCTAP0 
2263:          FCTCE1(5 )= FCTAP1 
2264:          FCTCE2(5 )= FCTAP2 
2265:          FCTCE3(5 )= FCTAP3 
2266:  
2267:          FCTCF1(6 )= 0.468378E+02 
2268:          FCTCF2(6 )=-0.827901E+00 
2269:          FCTCE0(6 )= FCTAP0 
2270:          FCTCE1(6 )= FCTAP1 
2271:          FCTCE2(6 )= FCTAP2 
2272:          FCTCE3(6 )= FCTAP3 
2273:  
2274:          FCTCF1(7 )= 0.438806E+03 
2275:          FCTCF2(7 )=-0.945418E+00 
2276:          FCTCE0(7 )= FCTAP0 
2277:          FCTCE1(7 )= FCTAP1 
2278:          FCTCE2(7 )= FCTAP2 
2279:          FCTCE3(7 )= FCTAP3 
2280:  
2281:          FCTVOS    = ZERO 
2282:  
2283: C Define the parameters for calculating beta. 
2284:  
2285:          FCTCH1(1 )=-0.317834E+03 
2286:          FCTCH2(1 )=-0.112417E+01 
2287:          FCTCG0(1 )= FCTBT0 
2288:          FCTCG1(1 )= FCTBT1 
2289:          FCTCG2(1 )= FCTBT2 
2290:          FCTCG3(1 )= FCTBT3 
2291:  
2292:          FCTCH1(2 )=-0.393021E+03 
2293:          FCTCH2(2 )=-0.816398E+00 
2294:          FCTCG0(2 )= FCTBT0 
2295:          FCTCG1(2 )= FCTBT1 
2296:          FCTCG2(2 )= FCTBT2 
2297:          FCTCG3(2 )= FCTBT3 
2298:  
2299:          FCTCH1(3 )= 0.243318E+03 
2300:          FCTCH2(3 )=-0.955083E+00 
2301:          FCTCG0(3 )= FCTBT0 
2302:          FCTCG1(3 )= FCTBT1 
2303:          FCTCG2(3 )= FCTBT2 
2304:          FCTCG3(3 )= FCTBT3 
2305:  
2306:          FCTCH1(4 )=-0.263481E+03 
2307:          FCTCH2(4 )=-0.573028E+00 
2308:          FCTCG0(4 )= FCTBT0 
2309:          FCTCG1(4 )= FCTBT1 
2310:          FCTCG2(4 )= FCTBT2 
2311:          FCTCG3(4 )= FCTBT3 
2312:  
2313:          FCTCH1(5 )= 0.193948E+03 
2314:          FCTCH2(5 )=-0.749211E+00 
2315:          FCTCG0(5 )= FCTBT0 
2316:          FCTCG1(5 )= FCTBT1 
2317:          FCTCG2(5 )= FCTBT2 
2318:          FCTCG3(5 )= FCTBT3 
2319:  
2320:          FCTCH1(6 )= 0.468378E+02 
2321:          FCTCH2(6 )=-0.827901E+00 
2322:          FCTCG0(6 )= FCTBT0 
2323:          FCTCG1(6 )= FCTBT1 
2324:          FCTCG2(6 )= FCTBT2 
2325:          FCTCG3(6 )= FCTBT3 
2326:  
2327:          FCTCH1(7 )= 0.438806E+03 
2328:          FCTCH2(7 )=-0.945418E+00 
2329:          FCTCG0(7 )= FCTBT0 
2330:          FCTCG1(7 )= FCTBT1 
2331:          FCTCG2(7 )= FCTBT2 
2332:          FCTCG3(7 )= FCTBT3 
2333:  
2334:          FCTWOS    = ZERO 
2335:  
2336: C Define the initial value for the measure of symmetry. 
2337:  
2338:          FCTBIN    = ZERO 
2339:  
2340: C Define the factor for the exponential function in the Generalized Born 
2341: C formula. 
2342:  
2343:          FCTKPS    = FOUR 
2344:  
2345: C Define the quenching factors for the atomic solvation energies. They 
2346: C affect both atomic solvation and interaction energies. 
2347:  
2348:          FCTQUN(1 )= ONE 
2349:          FCTQUN(2 )= ONE 
2350:          FCTQUN(3 )= ONE 
2351:          FCTQUN(4 )= ONE 
2352:          FCTQUN(5 )= ONE 
2353:          FCTQUN(6 )= ONE 
2354:          FCTQUN(7 )= ONE 
2355:  
2356: C Define the scaling factors for the charges and for the FCTNPS factors. 
2357: C They only affect atomic solvation energies and the nonpolar 
2358: C contributions that are proportional to the unit charge atomic 
2359: C solvation energies. They do not affect interaction energies. 
2360:  
2361:          FCTSCF(1 )= ONE 
2362:          FCTSCF(2 )= ONE 
2363:          FCTSCF(3 )= ONE 
2364:          FCTSCF(4 )= ONE 
2365:          FCTSCF(5 )= ONE 
2366:          FCTSCF(6 )= ONE 
2367:          FCTSCF(7 )= ONE 
2368:  
2369: C Define the factors to obtain the nonpolar contributions that are 
2370: C proportional to the unit charge atomic solvation energies. 
2371:  
2372:          FCTNPS(1 )= ZERO 
2373:          FCTNPS(2 )= ZERO 
2374:          FCTNPS(3 )= ZERO 
2375:          FCTNPS(4 )= ZERO 
2376:          FCTNPS(5 )= ZERO 
2377:          FCTNPS(6 )= ZERO 
2378:          FCTNPS(7 )= ZERO 
2379:  
2380:       ENDIF 
2381:  
2382:       IF ((FCTCPS .EQ. 19    )  .AND. 
2383:      &    (FCTEPS .EQ. TWO   )  .AND. 
2384:      &    (FCTFPS .EQ. 3     )) THEN 
2385:  
2386: C This FACTS parameter set was derived with boundary conditions at zero 
2387: C and positive infinity. 
2388:  
2389:          FCTCHO    = .TRUE. 
2390:  
2391: C Define some constants related to the dielectric medium. 
2392:  
2393:          FCTIEM    = FCTCEL/TWO 
2394:          FCTIES    = FCTCEL/78.5D0 
2395:          FCTTAU    = FCTIEM-FCTIES 
2396:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
2397:  
2398: C Define the number of native van der Waals radii. 
2399:  
2400:          FCTNNV    = 7 
2401:  
2402: C Define the number of actual van der Waals radii. 
2403:  
2404:          FCTNAV    = 7 
2405:  
2406: C Define the native van der Waals radii. 
2407:  
2408:          FCTRVW(1 )= 1.0000D0 
2409:          FCTRVW(2 )= 1.6000D0 
2410:          FCTRVW(3 )= 1.8900D0 
2411:          FCTRVW(4 )= 2.1000D0 
2412:          FCTRVW(5 )= 2.1650D0 
2413:          FCTRVW(6 )= 2.2350D0 
2414:          FCTRVW(7 )= 2.3650D0 
2415:  
2416: C Define the cutoffs for the FACTS self and interaction energy pair 
2417: C lists. 
2418:  
2419:          FCTCSL    =11.0D0 
2420:          FCTCIL    = 8.5D0 
2421:  
2422: C Define the cutoffs for the FACTS self and interaction energy 
2423: C calculations. 
2424:  
2425:          FCTCSC(1 )= 0.739032E+01 
2426:          FCTCSC(2 )= 0.846133E+01 
2427:          FCTCSC(3 )= 0.917618E+01 
2428:          FCTCSC(4 )= 0.958532E+01 
2429:          FCTCSC(5 )= 0.100000E+02 
2430:          FCTCSC(6 )= 0.939675E+01 
2431:          FCTCSC(7 )= 0.100000E+02 
2432:          FCTCIC    = 7.5D0 
2433:  
2434: C Define the parameters for calculating atomic solvation energies. 
2435:  
2436:          FCTCB1(1 )= 0.147839E+03 
2437:          FCTCB2(1 )=-0.134703E+01 
2438:          FCTCA0(1 )=-0.416362E+03 
2439:          FCTCA1(1 )= 0.416360E+03 
2440:          FCTCA2(1 )= 0.305516E-02 
2441:          FCTCA3(1 )=-0.465533E+03 
2442:  
2443:          FCTCB1(2 )= 0.223513E+03 
2444:          FCTCB2(2 )=-0.129504E+01 
2445:          FCTCA0(2 )=-0.110968E+03 
2446:          FCTCA1(2 )= 0.110966E+03 
2447:          FCTCA2(2 )= 0.185690E-02 
2448:          FCTCA3(2 )=-0.957731E+02 
2449:  
2450:          FCTCB1(3 )= 0.469945E+03 
2451:          FCTCB2(3 )=-0.114207E+01 
2452:          FCTCA0(3 )=-0.505772E+02 
2453:          FCTCA1(3 )= 0.505752E+02 
2454:          FCTCA2(3 )= 0.233135E-02 
2455:          FCTCA3(3 )= 0.731837E+03 
2456:  
2457:          FCTCB1(4 )= 0.347165E+03 
2458:          FCTCB2(4 )=-0.108875E+01 
2459:          FCTCA0(4 )=-0.525372E+02 
2460:          FCTCA1(4 )= 0.525352E+02 
2461:          FCTCA2(4 )= 0.154118E-02 
2462:          FCTCA3(4 )= 0.656211E+03 
2463:  
2464:          FCTCB1(5 )= 0.431914E+03 
2465:          FCTCB2(5 )=-0.894286E+00 
2466:          FCTCA0(5 )=-0.401683E+02 
2467:          FCTCA1(5 )= 0.401663E+02 
2468:          FCTCA2(5 )= 0.229638E-02 
2469:          FCTCA3(5 )= 0.112840E+04 
2470:  
2471:          FCTCB1(6 )= 0.420734E+03 
2472:          FCTCB2(6 )=-0.113993E+01 
2473:          FCTCA0(6 )=-0.430259E+02 
2474:          FCTCA1(6 )= 0.430239E+02 
2475:          FCTCA2(6 )= 0.200764E-02 
2476:          FCTCA3(6 )= 0.830804E+03 
2477:  
2478:          FCTCB1(7 )= 0.810694E+03 
2479:          FCTCB2(7 )=-0.126414E+01 
2480:          FCTCA0(7 )=-0.401094E+02 
2481:          FCTCA1(7 )= 0.401074E+02 
2482:          FCTCA2(7 )= 0.164588E-02 
2483:          FCTCA3(7 )= 0.106769E+04 
2484:  
2485:          FCTQOS    = ZERO 
2486:  
2487: C Define the parameters for calculating atomic solvent accessible 
2488: C surface areas. 
2489:  
2490:          FCTCD1(1 )=-0.193261E+04 
2491:          FCTCD2(1 )=-0.129440E+01 
2492:          FCTCC0(1 )= 0.163304E+02 
2493:          FCTCC1(1 )=-0.163284E+02 
2494:          FCTCC2(1 )= 0.427427E-02 
2495:          FCTCC3(1 )=-0.127882E+04 
2496:  
2497:          FCTCD1(2 )=-0.377745E+04 
2498:          FCTCD2(2 )=-0.355457E+01 
2499:          FCTCC0(2 )= 0.551873E+02 
2500:          FCTCC1(2 )=-0.551853E+02 
2501:          FCTCC2(2 )= 0.160205E-02 
2502:          FCTCC3(2 )=-0.343534E+04 
2503:  
2504:          FCTCD1(3 )=-0.110519E+05 
2505:          FCTCD2(3 )=-0.276237E+01 
2506:          FCTCC0(3 )= 0.399838E+02 
2507:          FCTCC1(3 )=-0.398897E+02 
2508:          FCTCC2(3 )= 0.918397E-03 
2509:          FCTCC3(3 )=-0.610549E+04 
2510:  
2511:          FCTCD1(4 )=-0.732548E+03 
2512:          FCTCD2(4 )=-0.210098E+01 
2513:          FCTCC0(4 )= 0.160195E+03 
2514:          FCTCC1(4 )=-0.160146E+03 
2515:          FCTCC2(4 )= 0.355838E-02 
2516:          FCTCC3(4 )=-0.100191E+04 
2517:  
2518:          FCTCD1(5 )=-0.152804E+04 
2519:          FCTCD2(5 )=-0.131676E+01 
2520:          FCTCC0(5 )= 0.103612E+03 
2521:          FCTCC1(5 )=-0.103610E+03 
2522:          FCTCC2(5 )= 0.208470E-02 
2523:          FCTCC3(5 )=-0.975892E+03 
2524:  
2525:          FCTCD1(6 )=-0.174048E+04 
2526:          FCTCD2(6 )=-0.124393E+01 
2527:          FCTCC0(6 )= 0.590390E+02 
2528:          FCTCC1(6 )=-0.590370E+02 
2529:          FCTCC2(6 )= 0.302113E-02 
2530:          FCTCC3(6 )=-0.643231E+03 
2531:  
2532:          FCTCD1(7 )= 0.386309E+03 
2533:          FCTCD2(7 )=-0.211465E+01 
2534:          FCTCC0(7 )= 0.123365E+03 
2535:          FCTCC1(7 )=-0.123363E+03 
2536:          FCTCC2(7 )= 0.395129E-02 
2537:          FCTCC3(7 )=-0.249600E+03 
2538:  
2539:          FCTUOS    = ZERO 
2540:  
2541: C Define the parameters for calculating alpha. 
2542:  
2543:          FCTCF1(1 )= 0.147839E+03 
2544:          FCTCF2(1 )=-0.134703E+01 
2545:          FCTCE0(1 )= FCTAP0 
2546:          FCTCE1(1 )= FCTAP1 
2547:          FCTCE2(1 )= FCTAP2 
2548:          FCTCE3(1 )= FCTAP3 
2549:  
2550:          FCTCF1(2 )= 0.223513E+03 
2551:          FCTCF2(2 )=-0.129504E+01 
2552:          FCTCE0(2 )= FCTAP0 
2553:          FCTCE1(2 )= FCTAP1 
2554:          FCTCE2(2 )= FCTAP2 
2555:          FCTCE3(2 )= FCTAP3 
2556:  
2557:          FCTCF1(3 )= 0.469945E+03 
2558:          FCTCF2(3 )=-0.114207E+01 
2559:          FCTCE0(3 )= FCTAP0 
2560:          FCTCE1(3 )= FCTAP1 
2561:          FCTCE2(3 )= FCTAP2 
2562:          FCTCE3(3 )= FCTAP3 
2563:  
2564:          FCTCF1(4 )= 0.347165E+03 
2565:          FCTCF2(4 )=-0.108875E+01 
2566:          FCTCE0(4 )= FCTAP0 
2567:          FCTCE1(4 )= FCTAP1 
2568:          FCTCE2(4 )= FCTAP2 
2569:          FCTCE3(4 )= FCTAP3 
2570:  
2571:          FCTCF1(5 )= 0.431914E+03 
2572:          FCTCF2(5 )=-0.894286E+00 
2573:          FCTCE0(5 )= FCTAP0 
2574:          FCTCE1(5 )= FCTAP1 
2575:          FCTCE2(5 )= FCTAP2 
2576:          FCTCE3(5 )= FCTAP3 
2577:  
2578:          FCTCF1(6 )= 0.420734E+03 
2579:          FCTCF2(6 )=-0.113993E+01 
2580:          FCTCE0(6 )= FCTAP0 
2581:          FCTCE1(6 )= FCTAP1 
2582:          FCTCE2(6 )= FCTAP2 
2583:          FCTCE3(6 )= FCTAP3 
2584:  
2585:          FCTCF1(7 )= 0.810694E+03 
2586:          FCTCF2(7 )=-0.126414E+01 
2587:          FCTCE0(7 )= FCTAP0 
2588:          FCTCE1(7 )= FCTAP1 
2589:          FCTCE2(7 )= FCTAP2 
2590:          FCTCE3(7 )= FCTAP3 
2591:  
2592:          FCTVOS    = ZERO 
2593:  
2594: C Define the parameters for calculating beta. 
2595:  
2596:          FCTCH1(1 )= 0.147839E+03 
2597:          FCTCH2(1 )=-0.134703E+01 
2598:          FCTCG0(1 )= FCTBT0 
2599:          FCTCG1(1 )= FCTBT1 
2600:          FCTCG2(1 )= FCTBT2 
2601:          FCTCG3(1 )= FCTBT3 
2602:  
2603:          FCTCH1(2 )= 0.223513E+03 
2604:          FCTCH2(2 )=-0.129504E+01 
2605:          FCTCG0(2 )= FCTBT0 
2606:          FCTCG1(2 )= FCTBT1 
2607:          FCTCG2(2 )= FCTBT2 
2608:          FCTCG3(2 )= FCTBT3 
2609:  
2610:          FCTCH1(3 )= 0.469945E+03 
2611:          FCTCH2(3 )=-0.114207E+01 
2612:          FCTCG0(3 )= FCTBT0 
2613:          FCTCG1(3 )= FCTBT1 
2614:          FCTCG2(3 )= FCTBT2 
2615:          FCTCG3(3 )= FCTBT3 
2616:  
2617:          FCTCH1(4 )= 0.347165E+03 
2618:          FCTCH2(4 )=-0.108875E+01 
2619:          FCTCG0(4 )= FCTBT0 
2620:          FCTCG1(4 )= FCTBT1 
2621:          FCTCG2(4 )= FCTBT2 
2622:          FCTCG3(4 )= FCTBT3 
2623:  
2624:          FCTCH1(5 )= 0.431914E+03 
2625:          FCTCH2(5 )=-0.894286E+00 
2626:          FCTCG0(5 )= FCTBT0 
2627:          FCTCG1(5 )= FCTBT1 
2628:          FCTCG2(5 )= FCTBT2 
2629:          FCTCG3(5 )= FCTBT3 
2630:  
2631:          FCTCH1(6 )= 0.420734E+03 
2632:          FCTCH2(6 )=-0.113993E+01 
2633:          FCTCG0(6 )= FCTBT0 
2634:          FCTCG1(6 )= FCTBT1 
2635:          FCTCG2(6 )= FCTBT2 
2636:          FCTCG3(6 )= FCTBT3 
2637:  
2638:          FCTCH1(7 )= 0.810694E+03 
2639:          FCTCH2(7 )=-0.126414E+01 
2640:          FCTCG0(7 )= FCTBT0 
2641:          FCTCG1(7 )= FCTBT1 
2642:          FCTCG2(7 )= FCTBT2 
2643:          FCTCG3(7 )= FCTBT3 
2644:  
2645:          FCTWOS    = ZERO 
2646:  
2647: C Define the initial value for the measure of symmetry. 
2648:  
2649:          FCTBIN    = ONE 
2650:  
2651: C Define the factor for the exponential function in the Generalized Born 
2652: C formula. 
2653:  
2654:          FCTKPS    = FOUR 
2655:  
2656: C Define the quenching factors for the atomic solvation energies. They 
2657: C affect both atomic solvation and interaction energies. 
2658:  
2659:          FCTQUN(1 )= ONE 
2660:          FCTQUN(2 )= ONE 
2661:          FCTQUN(3 )= ONE 
2662:          FCTQUN(4 )= ONE 
2663:          FCTQUN(5 )= ONE 
2664:          FCTQUN(6 )= ONE 
2665:          FCTQUN(7 )= ONE 
2666:  
2667: C Define the scaling factors for the charges and for the FCTNPS factors. 
2668: C They only affect atomic solvation energies and the nonpolar 
2669: C contributions that are proportional to the unit charge atomic 
2670: C solvation energies. They do not affect interaction energies. 
2671:  
2672:          FCTSCF(1 )= ONE 
2673:          FCTSCF(2 )= ONE 
2674:          FCTSCF(3 )= ONE 
2675:          FCTSCF(4 )= ONE 
2676:          FCTSCF(5 )= ONE 
2677:          FCTSCF(6 )= ONE 
2678:          FCTSCF(7 )= ONE 
2679:  
2680: C Define the factors to obtain the nonpolar contributions that are 
2681: C proportional to the unit charge atomic solvation energies. 
2682:  
2683:          FCTNPS(1 )= ZERO 
2684:          FCTNPS(2 )= ZERO 
2685:          FCTNPS(3 )= ZERO 
2686:          FCTNPS(4 )= ZERO 
2687:          FCTNPS(5 )= ZERO 
2688:          FCTNPS(6 )= ZERO 
2689:          FCTNPS(7 )= ZERO 
2690:  
2691:       ENDIF 
2692:  
2693:       IF ((FCTCPS .EQ. 22    )  .AND. 
2694:      &    (FCTEPS .EQ. ONE   )  .AND. 
2695:      &    (FCTFPS .EQ. 1     )) THEN 
2696:  
2697: C This FACTS parameter set was derived with no boundary conditions. 
2698:  
2699:          FCTCHO    = .TRUE. 
2700:  
2701: C Define some constants related to the dielectric medium. 
2702:  
2703:          FCTIEM    = FCTCEL/ONE 
2704:          FCTIES    = FCTCEL/78.5D0 
2705:          FCTTAU    = FCTIEM-FCTIES 
2706:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
2707:  
2708: C Define the number of native van der Waals radii. 
2709:  
2710:          FCTNNV    = 19 
2711:  
2712: C Define the number of actual van der Waals radii. 
2713:  
2714:          FCTNAV    = 19 
2715:  
2716: C Define the native van der Waals radii. 
2717:  
2718:          FCTRVW(1 )= 0.2245D0 
2719:          FCTRVW(2 )= 0.4500D0 
2720:          FCTRVW(3 )= 0.7000D0 
2721:          FCTRVW(4 )= 0.9000D0 
2722:          FCTRVW(5 )= 1.3200D0 
2723:          FCTRVW(6 )= 1.3582D0 
2724:          FCTRVW(7 )= 1.4680D0 
2725:          FCTRVW(8 )= 1.7000D0 
2726:          FCTRVW(9 )= 1.7700D0 
2727:          FCTRVW(10)= 1.8000D0 
2728:          FCTRVW(11)= 1.8500D0 
2729:          FCTRVW(12)= 1.9750D0 
2730:          FCTRVW(13)= 1.9924D0 
2731:          FCTRVW(14)= 2.0000D0 
2732:          FCTRVW(15)= 2.0600D0 
2733:          FCTRVW(16)= 2.1750D0 
2734:          FCTRVW(17)= 2.2350D0 
2735:          FCTRVW(18)= 2.2750D0 
2736:          FCTRVW(19)= 2.3650D0 
2737:  
2738: C Define the cutoffs for the FACTS self and interaction energy pair 
2739: C lists. 
2740:  
2741:          FCTCSL    =12.0D0 
2742:          FCTCIL    =14.0D0 
2743:  
2744: C Define the cutoffs for the FACTS self and interaction energy 
2745: C calculations. 
2746:  
2747:          FCTCSC(1 )= 0.714752E+01 
2748:          FCTCSC(2 )= 0.642627E+01 
2749:          FCTCSC(3 )= 0.600000E+01 
2750:          FCTCSC(4 )= 0.711831E+01 
2751:          FCTCSC(5 )= 0.820532E+01 
2752:          FCTCSC(6 )= 0.837924E+01 
2753:          FCTCSC(7 )= 0.802782E+01 
2754:          FCTCSC(8 )= 0.854745E+01 
2755:          FCTCSC(9 )= 0.850252E+01 
2756:          FCTCSC(10)= 0.837057E+01 
2757:          FCTCSC(11)= 0.852379E+01 
2758:          FCTCSC(12)= 0.884069E+01 
2759:          FCTCSC(13)= 0.920590E+01 
2760:          FCTCSC(14)= 0.881363E+01 
2761:          FCTCSC(15)= 0.986535E+01 
2762:          FCTCSC(16)= 0.891107E+01 
2763:          FCTCSC(17)= 0.600000E+01 
2764:          FCTCSC(18)= 0.952518E+01 
2765:          FCTCSC(19)= 0.600000E+01 
2766:          FCTCIC    =12.0D0 
2767:  
2768: C Define the parameters for calculating atomic solvation energies. 
2769:  
2770:          FCTCB1(1 )=-0.210603E+03 
2771:          FCTCB2(1 )=-0.199137E+01 
2772:          FCTCA0(1 )=-0.150967E+03 
2773:          FCTCA1(1 )= 0.127403E+03 
2774:          FCTCA2(1 )= 0.510164E-02 
2775:          FCTCA3(1 )=-0.478652E+02 
2776:  
2777:          FCTCB1(2 )= 0.152309E+03 
2778:          FCTCB2(2 )=-0.133090E+01 
2779:          FCTCA0(2 )=-0.174143E+03 
2780:          FCTCA1(2 )= 0.156700E+03 
2781:          FCTCA2(2 )= 0.813065E-02 
2782:          FCTCA3(2 )= 0.244034E+03 
2783:  
2784:          FCTCB1(3 )= 0.152309E+03 
2785:          FCTCB2(3 )=-0.133090E+01 
2786:          FCTCA0(3 )=-0.174143E+03 
2787:          FCTCA1(3 )= 0.156700E+03 
2788:          FCTCA2(3 )= 0.813065E-02 
2789:          FCTCA3(3 )= 0.244034E+03 
2790:  
2791:          FCTCB1(4 )= 0.152309E+03 
2792:          FCTCB2(4 )=-0.133090E+01 
2793:          FCTCA0(4 )=-0.174143E+03 
2794:          FCTCA1(4 )= 0.156700E+03 
2795:          FCTCA2(4 )= 0.813065E-02 
2796:          FCTCA3(4 )= 0.244034E+03 
2797:  
2798:          FCTCB1(5 )= 0.495330E+02 
2799:          FCTCB2(5 )=-0.138532E+01 
2800:          FCTCA0(5 )=-0.127149E+03 
2801:          FCTCA1(5 )= 0.121317E+03 
2802:          FCTCA2(5 )= 0.303488E-02 
2803:          FCTCA3(5 )= 0.337407E+03 
2804:  
2805:          FCTCB1(6 )=-0.223768E+03 
2806:          FCTCB2(6 )=-0.138928E+01 
2807:          FCTCA0(6 )=-0.110988E+03 
2808:          FCTCA1(6 )= 0.103587E+03 
2809:          FCTCA2(6 )= 0.300192E-02 
2810:          FCTCA3(6 )= 0.405079E+03 
2811:  
2812:          FCTCB1(7 )= 0.383667E+02 
2813:          FCTCB2(7 )=-0.501591E+00 
2814:          FCTCA0(7 )=-0.104285E+03 
2815:          FCTCA1(7 )= 0.949888E+02 
2816:          FCTCA2(7 )= 0.503257E-02 
2817:          FCTCA3(7 )= 0.642381E+03 
2818:  
2819:          FCTCB1(8 )=-0.220010E+03 
2820:          FCTCB2(8 )=-0.966769E+00 
2821:          FCTCA0(8 )=-0.968233E+02 
2822:          FCTCA1(8 )= 0.961271E+02 
2823:          FCTCA2(8 )= 0.235122E-02 
2824:          FCTCA3(8 )= 0.666119E+03 
2825:  
2826:          FCTCB1(9 )=-0.223037E+03 
2827:          FCTCB2(9 )=-0.836065E+00 
2828:          FCTCA0(9 )=-0.929564E+02 
2829:          FCTCA1(9 )= 0.929544E+02 
2830:          FCTCA2(9 )= 0.243993E-02 
2831:          FCTCA3(9 )= 0.693910E+03 
2832:  
2833:          FCTCB1(10)= 0.853399E+01 
2834:          FCTCB2(10)=-0.109161E+01 
2835:          FCTCA0(10)=-0.123827E+03 
2836:          FCTCA1(10)= 0.123825E+03 
2837:          FCTCA2(10)= 0.185613E-02 
2838:          FCTCA3(10)= 0.347902E+03 
2839:  
2840:          FCTCB1(11)=-0.289292E+03 
2841:          FCTCB2(11)=-0.697267E+00 
2842:          FCTCA0(11)=-0.932613E+02 
2843:          FCTCA1(11)= 0.932593E+02 
2844:          FCTCA2(11)= 0.202205E-02 
2845:          FCTCA3(11)= 0.715165E+03 
2846:  
2847:          FCTCB1(12)= 0.507041E+03 
2848:          FCTCB2(12)=-0.108130E+01 
2849:          FCTCA0(12)=-0.791668E+02 
2850:          FCTCA1(12)= 0.688771E+02 
2851:          FCTCA2(12)= 0.354600E-02 
2852:          FCTCA3(12)= 0.895937E+03 
2853:  
2854:          FCTCB1(13)= 0.519116E+01 
2855:          FCTCB2(13)=-0.105654E+01 
2856:          FCTCA0(13)=-0.845685E+02 
2857:          FCTCA1(13)= 0.845665E+02 
2858:          FCTCA2(13)= 0.187023E-02 
2859:          FCTCA3(13)= 0.915891E+03 
2860:  
2861:          FCTCB1(14)= 0.147227E+03 
2862:          FCTCB2(14)=-0.811304E+00 
2863:          FCTCA0(14)=-0.858924E+02 
2864:          FCTCA1(14)= 0.858904E+02 
2865:          FCTCA2(14)= 0.196363E-02 
2866:          FCTCA3(14)= 0.900140E+03 
2867:  
2868:          FCTCB1(15)= 0.257422E+02 
2869:          FCTCB2(15)=-0.894245E+00 
2870:          FCTCA0(15)=-0.763464E+02 
2871:          FCTCA1(15)= 0.763444E+02 
2872:          FCTCA2(15)= 0.192986E-02 
2873:          FCTCA3(15)= 0.130541E+04 
2874:  
2875:          FCTCB1(16)= 0.620536E+02 
2876:          FCTCB2(16)=-0.943820E+00 
2877:          FCTCA0(16)=-0.754147E+02 
2878:          FCTCA1(16)= 0.754127E+02 
2879:          FCTCA2(16)= 0.224894E-02 
2880:          FCTCA3(16)= 0.979966E+03 
2881:  
2882:          FCTCB1(17)= 0.746028E+03 
2883:          FCTCB2(17)=-0.130263E+01 
2884:          FCTCA0(17)=-0.735409E+02 
2885:          FCTCA1(17)= 0.731524E+02 
2886:          FCTCA2(17)= 0.182580E-02 
2887:          FCTCA3(17)= 0.121299E+04 
2888:  
2889:          FCTCB1(18)= 0.746028E+03 
2890:          FCTCB2(18)=-0.130263E+01 
2891:          FCTCA0(18)=-0.735409E+02 
2892:          FCTCA1(18)= 0.731524E+02 
2893:          FCTCA2(18)= 0.182580E-02 
2894:          FCTCA3(18)= 0.121299E+04 
2895:  
2896:          FCTCB1(19)= 0.746028E+03 
2897:          FCTCB2(19)=-0.130263E+01 
2898:          FCTCA0(19)=-0.735409E+02 
2899:          FCTCA1(19)= 0.731524E+02 
2900:          FCTCA2(19)= 0.182580E-02 
2901:          FCTCA3(19)= 0.121299E+04 
2902:  
2903:          FCTQOS    = ZERO 
2904:  
2905: C Define the parameters for calculating atomic solvent accessible 
2906: C surface areas. 
2907:  
2908:          FCTCD1(1 )=-0.448975E+04 
2909:          FCTCD2(1 )=-0.977422E+01 
2910:          FCTCC0(1 )= 0.331627E+02 
2911:          FCTCC1(1 )=-0.331607E+02 
2912:          FCTCC2(1 )= 0.276020E-01 
2913:          FCTCC3(1 )=-0.719487E+04 
2914:  
2915:          FCTCD1(2 )=-0.978643E+04 
2916:          FCTCD2(2 )=-0.688345E+01 
2917:          FCTCC0(2 )= 0.872021E+01 
2918:          FCTCC1(2 )=-0.871821E+01 
2919:          FCTCC2(2 )= 0.143223E-02 
2920:          FCTCC3(2 )=-0.709153E+04 
2921:  
2922:          FCTCD1(3 )=-0.978643E+04 
2923:          FCTCD2(3 )=-0.688345E+01 
2924:          FCTCC0(3 )= 0.872021E+01 
2925:          FCTCC1(3 )=-0.871821E+01 
2926:          FCTCC2(3 )= 0.143223E-02 
2927:          FCTCC3(3 )=-0.709153E+04 
2928:  
2929:          FCTCD1(4 )=-0.978643E+04 
2930:          FCTCD2(4 )=-0.688345E+01 
2931:          FCTCC0(4 )= 0.872021E+01 
2932:          FCTCC1(4 )=-0.871821E+01 
2933:          FCTCC2(4 )= 0.143223E-02 
2934:          FCTCC3(4 )=-0.709153E+04 
2935:  
2936:          FCTCD1(5 )=-0.192740E+03 
2937:          FCTCD2(5 )=-0.176685E+01 
2938:          FCTCC0(5 )= 0.100230E+03 
2939:          FCTCC1(5 )=-0.100228E+03 
2940:          FCTCC2(5 )= 0.630842E-02 
2941:          FCTCC3(5 )=-0.578701E+03 
2942:  
2943:          FCTCD1(6 )=-0.728029E+03 
2944:          FCTCD2(6 )=-0.225798E+01 
2945:          FCTCC0(6 )= 0.163762E+03 
2946:          FCTCC1(6 )=-0.163760E+03 
2947:          FCTCC2(6 )= 0.327572E-02 
2948:          FCTCC3(6 )=-0.141485E+04 
2949:  
2950:          FCTCD1(7 )=-0.345948E+04 
2951:          FCTCD2(7 )=-0.203757E+01 
2952:          FCTCC0(7 )= 0.458058E+02 
2953:          FCTCC1(7 )=-0.458038E+02 
2954:          FCTCC2(7 )= 0.193741E-02 
2955:          FCTCC3(7 )=-0.240496E+04 
2956:  
2957:          FCTCD1(8 )=-0.193196E+04 
2958:          FCTCD2(8 )=-0.166026E+01 
2959:          FCTCC0(8 )= 0.650084E+02 
2960:          FCTCC1(8 )=-0.650064E+02 
2961:          FCTCC2(8 )= 0.245596E-02 
2962:          FCTCC3(8 )=-0.135370E+04 
2963:  
2964:          FCTCD1(9 )=-0.309785E+04 
2965:          FCTCD2(9 )=-0.119474E+01 
2966:          FCTCC0(9 )= 0.721270E+02 
2967:          FCTCC1(9 )=-0.721250E+02 
2968:          FCTCC2(9 )= 0.171363E-02 
2969:          FCTCC3(9 )=-0.208454E+04 
2970:  
2971:          FCTCD1(10)=-0.227929E+05 
2972:          FCTCD2(10)=-0.825630E+01 
2973:          FCTCC0(10)= 0.315402E+02 
2974:          FCTCC1(10)=-0.313502E+02 
2975:          FCTCC2(10)= 0.567394E-03 
2976:          FCTCC3(10)=-0.142830E+05 
2977:  
2978:          FCTCD1(11)=-0.193388E+04 
2979:          FCTCD2(11)=-0.156243E+01 
2980:          FCTCC0(11)= 0.746559E+02 
2981:          FCTCC1(11)=-0.746539E+02 
2982:          FCTCC2(11)= 0.268963E-02 
2983:          FCTCC3(11)=-0.128236E+04 
2984:  
2985:          FCTCD1(12)= 0.278812E+03 
2986:          FCTCD2(12)=-0.224176E+01 
2987:          FCTCC0(12)= 0.179508E+03 
2988:          FCTCC1(12)=-0.179460E+03 
2989:          FCTCC2(12)= 0.501248E-02 
2990:          FCTCC3(12)=-0.346746E+03 
2991:  
2992:          FCTCD1(13)=-0.609707E+04 
2993:          FCTCD2(13)=-0.203276E+00 
2994:          FCTCC0(13)= 0.160296E+03 
2995:          FCTCC1(13)=-0.160221E+03 
2996:          FCTCC2(13)= 0.882224E-03 
2997:          FCTCC3(13)=-0.537504E+04 
2998:  
2999:          FCTCD1(14)=-0.811741E+04 
3000:          FCTCD2(14)=-0.217625E+01 
3001:          FCTCC0(14)= 0.168481E+03 
3002:          FCTCC1(14)=-0.168287E+03 
3003:          FCTCC2(14)= 0.113765E-02 
3004:          FCTCC3(14)=-0.672543E+04 
3005:  
3006:          FCTCD1(15)=-0.105332E+05 
3007:          FCTCD2(15)=-0.124008E+01 
3008:          FCTCC0(15)= 0.166467E+03 
3009:          FCTCC1(15)=-0.166465E+03 
3010:          FCTCC2(15)= 0.471945E-03 
3011:          FCTCC3(15)=-0.969033E+04 
3012:  
3013:          FCTCD1(16)=-0.211060E+05 
3014:          FCTCD2(16)=-0.454142E+00 
3015:          FCTCC0(16)= 0.130754E+03 
3016:          FCTCC1(16)=-0.130750E+03 
3017:          FCTCC2(16)= 0.326802E-03 
3018:          FCTCC3(16)=-0.152890E+05 
3019:  
3020:          FCTCD1(17)=-0.639876E+03 
3021:          FCTCD2(17)=-0.199623E+01 
3022:          FCTCC0(17)= 0.178300E+03 
3023:          FCTCC1(17)=-0.178298E+03 
3024:          FCTCC2(17)= 0.302069E-02 
3025:          FCTCC3(17)=-0.103577E+04 
3026:  
3027:          FCTCD1(18)=-0.639876E+03 
3028:          FCTCD2(18)=-0.199623E+01 
3029:          FCTCC0(18)= 0.178300E+03 
3030:          FCTCC1(18)=-0.178298E+03 
3031:          FCTCC2(18)= 0.302069E-02 
3032:          FCTCC3(18)=-0.103577E+04 
3033:  
3034:          FCTCD1(19)=-0.639876E+03 
3035:          FCTCD2(19)=-0.199623E+01 
3036:          FCTCC0(19)= 0.178300E+03 
3037:          FCTCC1(19)=-0.178298E+03 
3038:          FCTCC2(19)= 0.302069E-02 
3039:          FCTCC3(19)=-0.103577E+04 
3040:  
3041:          FCTUOS    = ZERO 
3042:  
3043: C Define the parameters for calculating alpha. 
3044:  
3045:          FCTCF1(1 )=-0.210603E+03 
3046:          FCTCF2(1 )=-0.199137E+01 
3047:          FCTCE0(1 )= FCTAP0 
3048:          FCTCE1(1 )= FCTAP1 
3049:          FCTCE2(1 )= FCTAP2 
3050:          FCTCE3(1 )= FCTAP3 
3051:  
3052:          FCTCF1(2 )= 0.152309E+03 
3053:          FCTCF2(2 )=-0.133090E+01 
3054:          FCTCE0(2 )= FCTAP0 
3055:          FCTCE1(2 )= FCTAP1 
3056:          FCTCE2(2 )= FCTAP2 
3057:          FCTCE3(2 )= FCTAP3 
3058:  
3059:          FCTCF1(3 )= 0.152309E+03 
3060:          FCTCF2(3 )=-0.133090E+01 
3061:          FCTCE0(3 )= FCTAP0 
3062:          FCTCE1(3 )= FCTAP1 
3063:          FCTCE2(3 )= FCTAP2 
3064:          FCTCE3(3 )= FCTAP3 
3065:  
3066:          FCTCF1(4 )= 0.152309E+03 
3067:          FCTCF2(4 )=-0.133090E+01 
3068:          FCTCE0(4 )= FCTAP0 
3069:          FCTCE1(4 )= FCTAP1 
3070:          FCTCE2(4 )= FCTAP2 
3071:          FCTCE3(4 )= FCTAP3 
3072:  
3073:          FCTCF1(5 )= 0.495330E+02 
3074:          FCTCF2(5 )=-0.138532E+01 
3075:          FCTCE0(5 )= FCTAP0 
3076:          FCTCE1(5 )= FCTAP1 
3077:          FCTCE2(5 )= FCTAP2 
3078:          FCTCE3(5 )= FCTAP3 
3079:  
3080:          FCTCF1(6 )=-0.223768E+03 
3081:          FCTCF2(6 )=-0.138928E+01 
3082:          FCTCE0(6 )= FCTAP0 
3083:          FCTCE1(6 )= FCTAP1 
3084:          FCTCE2(6 )= FCTAP2 
3085:          FCTCE3(6 )= FCTAP3 
3086:  
3087:          FCTCF1(7 )= 0.383667E+02 
3088:          FCTCF2(7 )=-0.501591E+00 
3089:          FCTCE0(7 )= FCTAP0 
3090:          FCTCE1(7 )= FCTAP1 
3091:          FCTCE2(7 )= FCTAP2 
3092:          FCTCE3(7 )= FCTAP3 
3093:  
3094:          FCTCF1(8 )=-0.220010E+03 
3095:          FCTCF2(8 )=-0.966769E+00 
3096:          FCTCE0(8 )= FCTAP0 
3097:          FCTCE1(8 )= FCTAP1 
3098:          FCTCE2(8 )= FCTAP2 
3099:          FCTCE3(8 )= FCTAP3 
3100:  
3101:          FCTCF1(9 )=-0.223037E+03 
3102:          FCTCF2(9 )=-0.836065E+00 
3103:          FCTCE0(9 )= FCTAP0 
3104:          FCTCE1(9 )= FCTAP1 
3105:          FCTCE2(9 )= FCTAP2 
3106:          FCTCE3(9 )= FCTAP3 
3107:  
3108:          FCTCF1(10)= 0.853399E+01 
3109:          FCTCF2(10)=-0.109161E+01 
3110:          FCTCE0(10)= FCTAP0 
3111:          FCTCE1(10)= FCTAP1 
3112:          FCTCE2(10)= FCTAP2 
3113:          FCTCE3(10)= FCTAP3 
3114:  
3115:          FCTCF1(11)=-0.289292E+03 
3116:          FCTCF2(11)=-0.697267E+00 
3117:          FCTCE0(11)= FCTAP0 
3118:          FCTCE1(11)= FCTAP1 
3119:          FCTCE2(11)= FCTAP2 
3120:          FCTCE3(11)= FCTAP3 
3121:  
3122:          FCTCF1(12)= 0.507041E+03 
3123:          FCTCF2(12)=-0.108130E+01 
3124:          FCTCE0(12)= FCTAP0 
3125:          FCTCE1(12)= FCTAP1 
3126:          FCTCE2(12)= FCTAP2 
3127:          FCTCE3(12)= FCTAP3 
3128:  
3129:          FCTCF1(13)= 0.519116E+01 
3130:          FCTCF2(13)=-0.105654E+01 
3131:          FCTCE0(13)= FCTAP0 
3132:          FCTCE1(13)= FCTAP1 
3133:          FCTCE2(13)= FCTAP2 
3134:          FCTCE3(13)= FCTAP3 
3135:  
3136:          FCTCF1(14)= 0.147227E+03 
3137:          FCTCF2(14)=-0.811304E+00 
3138:          FCTCE0(14)= FCTAP0 
3139:          FCTCE1(14)= FCTAP1 
3140:          FCTCE2(14)= FCTAP2 
3141:          FCTCE3(14)= FCTAP3 
3142:  
3143:          FCTCF1(15)= 0.257422E+02 
3144:          FCTCF2(15)=-0.894245E+00 
3145:          FCTCE0(15)= FCTAP0 
3146:          FCTCE1(15)= FCTAP1 
3147:          FCTCE2(15)= FCTAP2 
3148:          FCTCE3(15)= FCTAP3 
3149:  
3150:          FCTCF1(16)= 0.620536E+02 
3151:          FCTCF2(16)=-0.943820E+00 
3152:          FCTCE0(16)= FCTAP0 
3153:          FCTCE1(16)= FCTAP1 
3154:          FCTCE2(16)= FCTAP2 
3155:          FCTCE3(16)= FCTAP3 
3156:  
3157:          FCTCF1(17)= 0.746028E+03 
3158:          FCTCF2(17)=-0.130263E+01 
3159:          FCTCE0(17)= FCTAP0 
3160:          FCTCE1(17)= FCTAP1 
3161:          FCTCE2(17)= FCTAP2 
3162:          FCTCE3(17)= FCTAP3 
3163:  
3164:          FCTCF1(18)= 0.746028E+03 
3165:          FCTCF2(18)=-0.130263E+01 
3166:          FCTCE0(18)= FCTAP0 
3167:          FCTCE1(18)= FCTAP1 
3168:          FCTCE2(18)= FCTAP2 
3169:          FCTCE3(18)= FCTAP3 
3170:  
3171:          FCTCF1(19)= 0.746028E+03 
3172:          FCTCF2(19)=-0.130263E+01 
3173:          FCTCE0(19)= FCTAP0 
3174:          FCTCE1(19)= FCTAP1 
3175:          FCTCE2(19)= FCTAP2 
3176:          FCTCE3(19)= FCTAP3 
3177:  
3178:          FCTVOS    = ZERO 
3179:  
3180: C Define the parameters for calculating beta. 
3181:  
3182:          FCTCH1(1 )=-0.210603E+03 
3183:          FCTCH2(1 )=-0.199137E+01 
3184:          FCTCG0(1 )= FCTBT0 
3185:          FCTCG1(1 )= FCTBT1 
3186:          FCTCG2(1 )= FCTBT2 
3187:          FCTCG3(1 )= FCTBT3 
3188:  
3189:          FCTCH1(2 )= 0.152309E+03 
3190:          FCTCH2(2 )=-0.133090E+01 
3191:          FCTCG0(2 )= FCTBT0 
3192:          FCTCG1(2 )= FCTBT1 
3193:          FCTCG2(2 )= FCTBT2 
3194:          FCTCG3(2 )= FCTBT3 
3195:  
3196:          FCTCH1(3 )= 0.152309E+03 
3197:          FCTCH2(3 )=-0.133090E+01 
3198:          FCTCG0(3 )= FCTBT0 
3199:          FCTCG1(3 )= FCTBT1 
3200:          FCTCG2(3 )= FCTBT2 
3201:          FCTCG3(3 )= FCTBT3 
3202:  
3203:          FCTCH1(4 )= 0.152309E+03 
3204:          FCTCH2(4 )=-0.133090E+01 
3205:          FCTCG0(4 )= FCTBT0 
3206:          FCTCG1(4 )= FCTBT1 
3207:          FCTCG2(4 )= FCTBT2 
3208:          FCTCG3(4 )= FCTBT3 
3209:  
3210:          FCTCH1(5 )= 0.495330E+02 
3211:          FCTCH2(5 )=-0.138532E+01 
3212:          FCTCG0(5 )= FCTBT0 
3213:          FCTCG1(5 )= FCTBT1 
3214:          FCTCG2(5 )= FCTBT2 
3215:          FCTCG3(5 )= FCTBT3 
3216:  
3217:          FCTCH1(6 )=-0.223768E+03 
3218:          FCTCH2(6 )=-0.138928E+01 
3219:          FCTCG0(6 )= FCTBT0 
3220:          FCTCG1(6 )= FCTBT1 
3221:          FCTCG2(6 )= FCTBT2 
3222:          FCTCG3(6 )= FCTBT3 
3223:  
3224:          FCTCH1(7 )= 0.383667E+02 
3225:          FCTCH2(7 )=-0.501591E+00 
3226:          FCTCG0(7 )= FCTBT0 
3227:          FCTCG1(7 )= FCTBT1 
3228:          FCTCG2(7 )= FCTBT2 
3229:          FCTCG3(7 )= FCTBT3 
3230:  
3231:          FCTCH1(8 )=-0.220010E+03 
3232:          FCTCH2(8 )=-0.966769E+00 
3233:          FCTCG0(8 )= FCTBT0 
3234:          FCTCG1(8 )= FCTBT1 
3235:          FCTCG2(8 )= FCTBT2 
3236:          FCTCG3(8 )= FCTBT3 
3237:  
3238:          FCTCH1(9 )=-0.223037E+03 
3239:          FCTCH2(9 )=-0.836065E+00 
3240:          FCTCG0(9 )= FCTBT0 
3241:          FCTCG1(9 )= FCTBT1 
3242:          FCTCG2(9 )= FCTBT2 
3243:          FCTCG3(9 )= FCTBT3 
3244:  
3245:          FCTCH1(10)= 0.853399E+01 
3246:          FCTCH2(10)=-0.109161E+01 
3247:          FCTCG0(10)= FCTBT0 
3248:          FCTCG1(10)= FCTBT1 
3249:          FCTCG2(10)= FCTBT2 
3250:          FCTCG3(10)= FCTBT3 
3251:  
3252:          FCTCH1(11)=-0.289292E+03 
3253:          FCTCH2(11)=-0.697267E+00 
3254:          FCTCG0(11)= FCTBT0 
3255:          FCTCG1(11)= FCTBT1 
3256:          FCTCG2(11)= FCTBT2 
3257:          FCTCG3(11)= FCTBT3 
3258:  
3259:          FCTCH1(12)= 0.507041E+03 
3260:          FCTCH2(12)=-0.108130E+01 
3261:          FCTCG0(12)= FCTBT0 
3262:          FCTCG1(12)= FCTBT1 
3263:          FCTCG2(12)= FCTBT2 
3264:          FCTCG3(12)= FCTBT3 
3265:  
3266:          FCTCH1(13)= 0.519116E+01 
3267:          FCTCH2(13)=-0.105654E+01 
3268:          FCTCG0(13)= FCTBT0 
3269:          FCTCG1(13)= FCTBT1 
3270:          FCTCG2(13)= FCTBT2 
3271:          FCTCG3(13)= FCTBT3 
3272:  
3273:          FCTCH1(14)= 0.147227E+03 
3274:          FCTCH2(14)=-0.811304E+00 
3275:          FCTCG0(14)= FCTBT0 
3276:          FCTCG1(14)= FCTBT1 
3277:          FCTCG2(14)= FCTBT2 
3278:          FCTCG3(14)= FCTBT3 
3279:  
3280:          FCTCH1(15)= 0.257422E+02 
3281:          FCTCH2(15)=-0.894245E+00 
3282:          FCTCG0(15)= FCTBT0 
3283:          FCTCG1(15)= FCTBT1 
3284:          FCTCG2(15)= FCTBT2 
3285:          FCTCG3(15)= FCTBT3 
3286:  
3287:          FCTCH1(16)= 0.620536E+02 
3288:          FCTCH2(16)=-0.943820E+00 
3289:          FCTCG0(16)= FCTBT0 
3290:          FCTCG1(16)= FCTBT1 
3291:          FCTCG2(16)= FCTBT2 
3292:          FCTCG3(16)= FCTBT3 
3293:  
3294:          FCTCH1(17)= 0.746028E+03 
3295:          FCTCH2(17)=-0.130263E+01 
3296:          FCTCG0(17)= FCTBT0 
3297:          FCTCG1(17)= FCTBT1 
3298:          FCTCG2(17)= FCTBT2 
3299:          FCTCG3(17)= FCTBT3 
3300:  
3301:          FCTCH1(18)= 0.746028E+03 
3302:          FCTCH2(18)=-0.130263E+01 
3303:          FCTCG0(18)= FCTBT0 
3304:          FCTCG1(18)= FCTBT1 
3305:          FCTCG2(18)= FCTBT2 
3306:          FCTCG3(18)= FCTBT3 
3307:  
3308:          FCTCH1(19)= 0.746028E+03 
3309:          FCTCH2(19)=-0.130263E+01 
3310:          FCTCG0(19)= FCTBT0 
3311:          FCTCG1(19)= FCTBT1 
3312:          FCTCG2(19)= FCTBT2 
3313:          FCTCG3(19)= FCTBT3 
3314:  
3315:          FCTWOS    = ZERO 
3316:  
3317: C Define the initial value for the measure of symmetry. 
3318:  
3319:          FCTBIN    = ONE 
3320:  
3321: C Define the factor for the exponential function in the Generalized Born 
3322: C formula. 
3323:  
3324:          FCTKPS    = FOUR 
3325:  
3326: C Define the quenching factors for the atomic solvation energies. They 
3327: C affect both atomic solvation and interaction energies. 
3328:  
3329:          FCTQUN(1 )= ONE 
3330:          FCTQUN(2 )= ONE 
3331:          FCTQUN(3 )= ONE 
3332:          FCTQUN(4 )= ONE 
3333:          FCTQUN(5 )= ONE 
3334:          FCTQUN(6 )= ONE 
3335:          FCTQUN(7 )= ONE 
3336:          FCTQUN(8 )= ONE 
3337:          FCTQUN(9 )= ONE 
3338:          FCTQUN(10)= ONE 
3339:          FCTQUN(11)= ONE 
3340:          FCTQUN(12)= ONE 
3341:          FCTQUN(13)= ONE 
3342:          FCTQUN(14)= ONE 
3343:          FCTQUN(15)= ONE 
3344:          FCTQUN(16)= ONE 
3345:          FCTQUN(17)= ONE 
3346:          FCTQUN(18)= ONE 
3347:          FCTQUN(19)= ONE 
3348:  
3349: C Define the scaling factors for the charges and for the FCTNPS factors. 
3350: C They only affect atomic solvation energies and the nonpolar 
3351: C contributions that are proportional to the unit charge atomic 
3352: C solvation energies. They do not affect interaction energies. 
3353:  
3354:          FCTSCF(1 )= ONE 
3355:          FCTSCF(2 )= ONE 
3356:          FCTSCF(3 )= ONE 
3357:          FCTSCF(4 )= ONE 
3358:          FCTSCF(5 )= ONE 
3359:          FCTSCF(6 )= ONE 
3360:          FCTSCF(7 )= ONE 
3361:          FCTSCF(8 )= ONE 
3362:          FCTSCF(9 )= ONE 
3363:          FCTSCF(10)= ONE 
3364:          FCTSCF(11)= ONE 
3365:          FCTSCF(12)= ONE 
3366:          FCTSCF(13)= ONE 
3367:          FCTSCF(14)= ONE 
3368:          FCTSCF(15)= ONE 
3369:          FCTSCF(16)= ONE 
3370:          FCTSCF(17)= ONE 
3371:          FCTSCF(18)= ONE 
3372:          FCTSCF(19)= ONE 
3373:  
3374: C Define the factors to obtain the nonpolar contributions that are 
3375: C proportional to the unit charge atomic solvation energies. 
3376:  
3377:          FCTNPS(1 )= ZERO 
3378:          FCTNPS(2 )= ZERO 
3379:          FCTNPS(3 )= ZERO 
3380:          FCTNPS(4 )= ZERO 
3381:          FCTNPS(5 )= ZERO 
3382:          FCTNPS(6 )= ZERO 
3383:          FCTNPS(7 )= ZERO 
3384:          FCTNPS(8 )= ZERO 
3385:          FCTNPS(9 )= ZERO 
3386:          FCTNPS(10)= ZERO 
3387:          FCTNPS(11)= ZERO 
3388:          FCTNPS(12)= ZERO 
3389:          FCTNPS(13)= ZERO 
3390:          FCTNPS(14)= ZERO 
3391:          FCTNPS(15)= ZERO 
3392:          FCTNPS(16)= ZERO 
3393:          FCTNPS(17)= ZERO 
3394:          FCTNPS(18)= ZERO 
3395:          FCTNPS(19)= ZERO 
3396:  
3397:       ENDIF 
3398:  
3399:       IF ((FCTCPS .EQ. 22    )  .AND. 
3400:      &    (FCTEPS .EQ. ONE   )  .AND. 
3401:      &    (FCTFPS .EQ. 2     )) THEN 
3402:  
3403: C This FACTS parameter set was derived with boundary conditions at 
3404: C negative and positive infinity. 
3405:  
3406:          FCTCHO    = .TRUE. 
3407:  
3408: C Define some constants related to the dielectric medium. 
3409:  
3410:          FCTIEM    = FCTCEL/ONE 
3411:          FCTIES    = FCTCEL/78.5D0 
3412:          FCTTAU    = FCTIEM-FCTIES 
3413:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
3414:  
3415: C Define the number of native van der Waals radii. 
3416:  
3417:          FCTNNV    = 19 
3418:  
3419: C Define the number of actual van der Waals radii. 
3420:  
3421:          FCTNAV    = 19 
3422:  
3423: C Define the native van der Waals radii. 
3424:  
3425:          FCTRVW(1 )= 0.2245D0 
3426:          FCTRVW(2 )= 0.4500D0 
3427:          FCTRVW(3 )= 0.7000D0 
3428:          FCTRVW(4 )= 0.9000D0 
3429:          FCTRVW(5 )= 1.3200D0 
3430:          FCTRVW(6 )= 1.3582D0 
3431:          FCTRVW(7 )= 1.4680D0 
3432:          FCTRVW(8 )= 1.7000D0 
3433:          FCTRVW(9 )= 1.7700D0 
3434:          FCTRVW(10)= 1.8000D0 
3435:          FCTRVW(11)= 1.8500D0 
3436:          FCTRVW(12)= 1.9750D0 
3437:          FCTRVW(13)= 1.9924D0 
3438:          FCTRVW(14)= 2.0000D0 
3439:          FCTRVW(15)= 2.0600D0 
3440:          FCTRVW(16)= 2.1750D0 
3441:          FCTRVW(17)= 2.2350D0 
3442:          FCTRVW(18)= 2.2750D0 
3443:          FCTRVW(19)= 2.3650D0 
3444:  
3445: C Define the cutoffs for the FACTS self and interaction energy pair 
3446: C lists. 
3447:  
3448:          FCTCSL    =12.0D0 
3449:          FCTCIL    =14.0D0 
3450:  
3451: C Define the cutoffs for the FACTS self and interaction energy 
3452: C calculations. 
3453:  
3454:          FCTCSC(1 )= 0.714652E+01 
3455:          FCTCSC(2 )= 0.747510E+01 
3456:          FCTCSC(3 )= 0.600000E+01 
3457:          FCTCSC(4 )= 0.713710E+01 
3458:          FCTCSC(5 )= 0.821901E+01 
3459:          FCTCSC(6 )= 0.840905E+01 
3460:          FCTCSC(7 )= 0.801510E+01 
3461:          FCTCSC(8 )= 0.855916E+01 
3462:          FCTCSC(9 )= 0.850423E+01 
3463:          FCTCSC(10)= 0.833995E+01 
3464:          FCTCSC(11)= 0.851735E+01 
3465:          FCTCSC(12)= 0.886189E+01 
3466:          FCTCSC(13)= 0.920688E+01 
3467:          FCTCSC(14)= 0.882151E+01 
3468:          FCTCSC(15)= 0.987366E+01 
3469:          FCTCSC(16)= 0.891042E+01 
3470:          FCTCSC(17)= 0.600000E+01 
3471:          FCTCSC(18)= 0.952250E+01 
3472:          FCTCSC(19)= 0.600000E+01 
3473:          FCTCIC    =12.0D0 
3474:  
3475: C Define the parameters for calculating atomic solvation energies. 
3476:  
3477:          FCTCB1(1 )=-0.148587E+03 
3478:          FCTCB2(1 )=-0.196968E+01 
3479:          FCTCA0(1 )=-0.158448E+03 
3480:          FCTCA1(1 )= 0.136063E+03 
3481:          FCTCA2(1 )= 0.498271E-02 
3482:          FCTCA3(1 )=-0.379617E+02 
3483:  
3484:          FCTCB1(2 )= 0.740137E+02 
3485:          FCTCB2(2 )=-0.134808E+01 
3486:          FCTCA0(2 )=-0.182134E+03 
3487:          FCTCA1(2 )= 0.182132E+03 
3488:          FCTCA2(2 )= 0.561322E-02 
3489:          FCTCA3(2 )= 0.226916E+03 
3490:  
3491:          FCTCB1(3 )= 0.740137E+02 
3492:          FCTCB2(3 )=-0.134808E+01 
3493:          FCTCA0(3 )=-0.182134E+03 
3494:          FCTCA1(3 )= 0.182132E+03 
3495:          FCTCA2(3 )= 0.561322E-02 
3496:          FCTCA3(3 )= 0.226916E+03 
3497:  
3498:          FCTCB1(4 )= 0.740137E+02 
3499:          FCTCB2(4 )=-0.134808E+01 
3500:          FCTCA0(4 )=-0.182134E+03 
3501:          FCTCA1(4 )= 0.182132E+03 
3502:          FCTCA2(4 )= 0.561322E-02 
3503:          FCTCA3(4 )= 0.226916E+03 
3504:  
3505:          FCTCB1(5 )=-0.774918E+02 
3506:          FCTCB2(5 )=-0.133410E+01 
3507:          FCTCA0(5 )=-0.124182E+03 
3508:          FCTCA1(5 )= 0.124180E+03 
3509:          FCTCA2(5 )= 0.267342E-02 
3510:          FCTCA3(5 )= 0.353111E+03 
3511:  
3512:          FCTCB1(6 )=-0.140441E+03 
3513:          FCTCB2(6 )=-0.145382E+01 
3514:          FCTCA0(6 )=-0.120690E+03 
3515:          FCTCA1(6 )= 0.120688E+03 
3516:          FCTCA2(6 )= 0.249519E-02 
3517:          FCTCA3(6 )= 0.403313E+03 
3518:  
3519:          FCTCB1(7 )= 0.696019E+02 
3520:          FCTCB2(7 )=-0.585486E+00 
3521:          FCTCA0(7 )=-0.111663E+03 
3522:          FCTCA1(7 )= 0.111661E+03 
3523:          FCTCA2(7 )= 0.408956E-02 
3524:          FCTCA3(7 )= 0.639992E+03 
3525:  
3526:          FCTCB1(8 )=-0.250171E+03 
3527:          FCTCB2(8 )=-0.949265E+00 
3528:          FCTCA0(8 )=-0.964239E+02 
3529:          FCTCA1(8 )= 0.964219E+02 
3530:          FCTCA2(8 )= 0.230868E-02 
3531:          FCTCA3(8 )= 0.674423E+03 
3532:  
3533:          FCTCB1(9 )=-0.234194E+03 
3534:          FCTCB2(9 )=-0.827453E+00 
3535:          FCTCA0(9 )=-0.926106E+02 
3536:          FCTCA1(9 )= 0.926086E+02 
3537:          FCTCA2(9 )= 0.243729E-02 
3538:          FCTCA3(9 )= 0.695557E+03 
3539:  
3540:          FCTCB1(10)=-0.500339E+03 
3541:          FCTCB2(10)=-0.521275E+00 
3542:          FCTCA0(10)=-0.910671E+02 
3543:          FCTCA1(10)= 0.910651E+02 
3544:          FCTCA2(10)= 0.215451E-02 
3545:          FCTCA3(10)= 0.628435E+03 
3546:  
3547:          FCTCB1(11)=-0.477266E+03 
3548:          FCTCB2(11)=-0.513087E+00 
3549:          FCTCA0(11)=-0.886058E+02 
3550:          FCTCA1(11)= 0.886038E+02 
3551:          FCTCA2(11)= 0.206548E-02 
3552:          FCTCA3(11)= 0.760419E+03 
3553:  
3554:          FCTCB1(12)= 0.118886E+03 
3555:          FCTCB2(12)=-0.717360E+00 
3556:          FCTCA0(12)=-0.829978E+02 
3557:          FCTCA1(12)= 0.829958E+02 
3558:          FCTCA2(12)= 0.252700E-02 
3559:          FCTCA3(12)= 0.959470E+03 
3560:  
3561:          FCTCB1(13)=-0.951296E+02 
3562:          FCTCB2(13)=-0.979302E+00 
3563:          FCTCA0(13)=-0.822730E+02 
3564:          FCTCA1(13)= 0.822710E+02 
3565:          FCTCA2(13)= 0.189426E-02 
3566:          FCTCA3(13)= 0.943618E+03 
3567:  
3568:          FCTCB1(14)= 0.321039E+02 
3569:          FCTCB2(14)=-0.698167E+00 
3570:          FCTCA0(14)=-0.819603E+02 
3571:          FCTCA1(14)= 0.819583E+02 
3572:          FCTCA2(14)= 0.202218E-02 
3573:          FCTCA3(14)= 0.950325E+03 
3574:  
3575:          FCTCB1(15)= 0.268844E+03 
3576:          FCTCB2(15)=-0.103372E+01 
3577:          FCTCA0(15)=-0.795732E+02 
3578:          FCTCA1(15)= 0.795712E+02 
3579:          FCTCA2(15)= 0.189113E-02 
3580:          FCTCA3(15)= 0.126722E+04 
3581:  
3582:          FCTCB1(16)= 0.631751E+02 
3583:          FCTCB2(16)=-0.941390E+00 
3584:          FCTCA0(16)=-0.753658E+02 
3585:          FCTCA1(16)= 0.753638E+02 
3586:          FCTCA2(16)= 0.225164E-02 
3587:          FCTCA3(16)= 0.980461E+03 
3588:  
3589:          FCTCB1(17)= 0.673429E+03 
3590:          FCTCB2(17)=-0.123948E+01 
3591:          FCTCA0(17)=-0.720531E+02 
3592:          FCTCA1(17)= 0.720511E+02 
3593:          FCTCA2(17)= 0.184714E-02 
3594:          FCTCA3(17)= 0.124320E+04 
3595:  
3596:          FCTCB1(18)= 0.673429E+03 
3597:          FCTCB2(18)=-0.123948E+01 
3598:          FCTCA0(18)=-0.720531E+02 
3599:          FCTCA1(18)= 0.720511E+02 
3600:          FCTCA2(18)= 0.184714E-02 
3601:          FCTCA3(18)= 0.124320E+04 
3602:  
3603:          FCTCB1(19)= 0.673429E+03 
3604:          FCTCB2(19)=-0.123948E+01 
3605:          FCTCA0(19)=-0.720531E+02 
3606:          FCTCA1(19)= 0.720511E+02 
3607:          FCTCA2(19)= 0.184714E-02 
3608:          FCTCA3(19)= 0.124320E+04 
3609:  
3610:          FCTQOS    = ZERO 
3611:  
3612: C Define the parameters for calculating atomic solvent accessible 
3613: C surface areas. 
3614:  
3615:          FCTCD1(1 )=-0.448975E+04 
3616:          FCTCD2(1 )=-0.977422E+01 
3617:          FCTCC0(1 )= 0.331627E+02 
3618:          FCTCC1(1 )=-0.331607E+02 
3619:          FCTCC2(1 )= 0.276020E-01 
3620:          FCTCC3(1 )=-0.719487E+04 
3621:  
3622:          FCTCD1(2 )=-0.188978E+04 
3623:          FCTCD2(2 )=-0.476442E+01 
3624:          FCTCC0(2 )= 0.664761E+02 
3625:          FCTCC1(2 )=-0.664741E+02 
3626:          FCTCC2(2 )= 0.208082E-02 
3627:          FCTCC3(2 )=-0.314490E+04 
3628:  
3629:          FCTCD1(3 )=-0.188978E+04 
3630:          FCTCD2(3 )=-0.476442E+01 
3631:          FCTCC0(3 )= 0.664761E+02 
3632:          FCTCC1(3 )=-0.664741E+02 
3633:          FCTCC2(3 )= 0.208082E-02 
3634:          FCTCC3(3 )=-0.314490E+04 
3635:  
3636:          FCTCD1(4 )=-0.188978E+04 
3637:          FCTCD2(4 )=-0.476442E+01 
3638:          FCTCC0(4 )= 0.664761E+02 
3639:          FCTCC1(4 )=-0.664741E+02 
3640:          FCTCC2(4 )= 0.208082E-02 
3641:          FCTCC3(4 )=-0.314490E+04 
3642:  
3643:          FCTCD1(5 )=-0.227334E+05 
3644:          FCTCD2(5 )=-0.123295E+02 
3645:          FCTCC0(5 )= 0.929710E+02 
3646:          FCTCC1(5 )=-0.929690E+02 
3647:          FCTCC2(5 )= 0.257980E-03 
3648:          FCTCC3(5 )=-0.275568E+05 
3649:  
3650:          FCTCD1(6 )=-0.338361E+05 
3651:          FCTCD2(6 )=-0.273739E+02 
3652:          FCTCC0(6 )= 0.956008E+02 
3653:          FCTCC1(6 )=-0.955988E+02 
3654:          FCTCC2(6 )= 0.156308E-03 
3655:          FCTCC3(6 )=-0.419913E+05 
3656:  
3657:          FCTCD1(7 )=-0.345638E+03 
3658:          FCTCD2(7 )=-0.157073E+01 
3659:          FCTCC0(7 )= 0.103364E+03 
3660:          FCTCC1(7 )=-0.103362E+03 
3661:          FCTCC2(7 )= 0.524066E-02 
3662:          FCTCC3(7 )=-0.488295E+03 
3663:  
3664:          FCTCD1(8 )=-0.428198E+03 
3665:          FCTCD2(8 )=-0.161616E+01 
3666:          FCTCC0(8 )= 0.120763E+03 
3667:          FCTCC1(8 )=-0.120761E+03 
3668:          FCTCC2(8 )= 0.384137E-02 
3669:          FCTCC3(8 )=-0.598349E+03 
3670:  
3671:          FCTCD1(9 )=-0.100031E+04 
3672:          FCTCD2(9 )=-0.144611E+01 
3673:          FCTCC0(9 )= 0.126278E+03 
3674:          FCTCC1(9 )=-0.126276E+03 
3675:          FCTCC2(9 )= 0.276368E-02 
3676:          FCTCC3(9 )=-0.105029E+04 
3677:  
3678:          FCTCD1(10)=-0.152781E+05 
3679:          FCTCD2(10)=-0.745997E+01 
3680:          FCTCC0(10)= 0.128680E+03 
3681:          FCTCC1(10)=-0.128678E+03 
3682:          FCTCC2(10)= 0.487732E-03 
3683:          FCTCC3(10)=-0.143218E+05 
3684:  
3685:          FCTCD1(11)=-0.368958E+03 
3686:          FCTCD2(11)=-0.160743E+01 
3687:          FCTCC0(11)= 0.132732E+03 
3688:          FCTCC1(11)=-0.132730E+03 
3689:          FCTCC2(11)= 0.453277E-02 
3690:          FCTCC3(11)=-0.479033E+03 
3691:  
3692:          FCTCD1(12)=-0.197722E+04 
3693:          FCTCD2(12)=-0.337536E+01 
3694:          FCTCC0(12)= 0.143139E+03 
3695:          FCTCC1(12)=-0.143137E+03 
3696:          FCTCC2(12)= 0.184412E-02 
3697:          FCTCC3(12)=-0.246645E+04 
3698:  
3699:          FCTCD1(13)=-0.262962E+04 
3700:          FCTCD2(13)=-0.923843E+00 
3701:          FCTCC0(13)= 0.144619E+03 
3702:          FCTCC1(13)=-0.144617E+03 
3703:          FCTCC2(13)= 0.158436E-02 
3704:          FCTCC3(13)=-0.251924E+04 
3705:  
3706:          FCTCD1(14)=-0.177357E+05 
3707:          FCTCD2(14)=-0.200780E+01 
3708:          FCTCC0(14)= 0.145267E+03 
3709:          FCTCC1(14)=-0.145265E+03 
3710:          FCTCC2(14)= 0.573638E-03 
3711:          FCTCC3(14)=-0.138185E+05 
3712:  
3713:          FCTCD1(15)=-0.166663E+02 
3714:          FCTCD2(15)=-0.174062E+01 
3715:          FCTCC0(15)= 0.150440E+03 
3716:          FCTCC1(15)=-0.150438E+03 
3717:          FCTCC2(15)= 0.306503E-02 
3718:          FCTCC3(15)=-0.567656E+03 
3719:  
3720:          FCTCD1(16)= 0.140386E+02 
3721:          FCTCD2(16)=-0.199711E+01 
3722:          FCTCC0(16)= 0.160606E+03 
3723:          FCTCC1(16)=-0.160604E+03 
3724:          FCTCC2(16)= 0.460762E-02 
3725:          FCTCC3(16)=-0.407165E+03 
3726:  
3727:          FCTCD1(17)= 0.457199E+03 
3728:          FCTCD2(17)=-0.244355E+01 
3729:          FCTCC0(17)= 0.169717E+03 
3730:          FCTCC1(17)=-0.169715E+03 
3731:          FCTCC2(17)= 0.434189E-02 
3732:          FCTCC3(17)=-0.444777E+03 
3733:  
3734:          FCTCD1(18)= 0.457199E+03 
3735:          FCTCD2(18)=-0.244355E+01 
3736:          FCTCC0(18)= 0.169717E+03 
3737:          FCTCC1(18)=-0.169715E+03 
3738:          FCTCC2(18)= 0.434189E-02 
3739:          FCTCC3(18)=-0.444777E+03 
3740:  
3741:          FCTCD1(19)= 0.457199E+03 
3742:          FCTCD2(19)=-0.244355E+01 
3743:          FCTCC0(19)= 0.169717E+03 
3744:          FCTCC1(19)=-0.169715E+03 
3745:          FCTCC2(19)= 0.434189E-02 
3746:          FCTCC3(19)=-0.444777E+03 
3747:  
3748:          FCTUOS    = ZERO 
3749:  
3750: C Define the parameters for calculating alpha. 
3751:  
3752:          FCTCF1(1 )=-0.148587E+03 
3753:          FCTCF2(1 )=-0.196968E+01 
3754:          FCTCE0(1 )= FCTAP0 
3755:          FCTCE1(1 )= FCTAP1 
3756:          FCTCE2(1 )= FCTAP2 
3757:          FCTCE3(1 )= FCTAP3 
3758:  
3759:          FCTCF1(2 )= 0.740137E+02 
3760:          FCTCF2(2 )=-0.134808E+01 
3761:          FCTCE0(2 )= FCTAP0 
3762:          FCTCE1(2 )= FCTAP1 
3763:          FCTCE2(2 )= FCTAP2 
3764:          FCTCE3(2 )= FCTAP3 
3765:  
3766:          FCTCF1(3 )= 0.740137E+02 
3767:          FCTCF2(3 )=-0.134808E+01 
3768:          FCTCE0(3 )= FCTAP0 
3769:          FCTCE1(3 )= FCTAP1 
3770:          FCTCE2(3 )= FCTAP2 
3771:          FCTCE3(3 )= FCTAP3 
3772:  
3773:          FCTCF1(4 )= 0.740137E+02 
3774:          FCTCF2(4 )=-0.134808E+01 
3775:          FCTCE0(4 )= FCTAP0 
3776:          FCTCE1(4 )= FCTAP1 
3777:          FCTCE2(4 )= FCTAP2 
3778:          FCTCE3(4 )= FCTAP3 
3779:  
3780:          FCTCF1(5 )=-0.774918E+02 
3781:          FCTCF2(5 )=-0.133410E+01 
3782:          FCTCE0(5 )= FCTAP0 
3783:          FCTCE1(5 )= FCTAP1 
3784:          FCTCE2(5 )= FCTAP2 
3785:          FCTCE3(5 )= FCTAP3 
3786:  
3787:          FCTCF1(6 )=-0.140441E+03 
3788:          FCTCF2(6 )=-0.145382E+01 
3789:          FCTCE0(6 )= FCTAP0 
3790:          FCTCE1(6 )= FCTAP1 
3791:          FCTCE2(6 )= FCTAP2 
3792:          FCTCE3(6 )= FCTAP3 
3793:  
3794:          FCTCF1(7 )= 0.696019E+02 
3795:          FCTCF2(7 )=-0.585486E+00 
3796:          FCTCE0(7 )= FCTAP0 
3797:          FCTCE1(7 )= FCTAP1 
3798:          FCTCE2(7 )= FCTAP2 
3799:          FCTCE3(7 )= FCTAP3 
3800:  
3801:          FCTCF1(8 )=-0.250171E+03 
3802:          FCTCF2(8 )=-0.949265E+00 
3803:          FCTCE0(8 )= FCTAP0 
3804:          FCTCE1(8 )= FCTAP1 
3805:          FCTCE2(8 )= FCTAP2 
3806:          FCTCE3(8 )= FCTAP3 
3807:  
3808:          FCTCF1(9 )=-0.234194E+03 
3809:          FCTCF2(9 )=-0.827453E+00 
3810:          FCTCE0(9 )= FCTAP0 
3811:          FCTCE1(9 )= FCTAP1 
3812:          FCTCE2(9 )= FCTAP2 
3813:          FCTCE3(9 )= FCTAP3 
3814:  
3815:          FCTCF1(10)=-0.500339E+03 
3816:          FCTCF2(10)=-0.521275E+00 
3817:          FCTCE0(10)= FCTAP0 
3818:          FCTCE1(10)= FCTAP1 
3819:          FCTCE2(10)= FCTAP2 
3820:          FCTCE3(10)= FCTAP3 
3821:  
3822:          FCTCF1(11)=-0.477266E+03 
3823:          FCTCF2(11)=-0.513087E+00 
3824:          FCTCE0(11)= FCTAP0 
3825:          FCTCE1(11)= FCTAP1 
3826:          FCTCE2(11)= FCTAP2 
3827:          FCTCE3(11)= FCTAP3 
3828:  
3829:          FCTCF1(12)= 0.118886E+03 
3830:          FCTCF2(12)=-0.717360E+00 
3831:          FCTCE0(12)= FCTAP0 
3832:          FCTCE1(12)= FCTAP1 
3833:          FCTCE2(12)= FCTAP2 
3834:          FCTCE3(12)= FCTAP3 
3835:  
3836:          FCTCF1(13)=-0.951296E+02 
3837:          FCTCF2(13)=-0.979302E+00 
3838:          FCTCE0(13)= FCTAP0 
3839:          FCTCE1(13)= FCTAP1 
3840:          FCTCE2(13)= FCTAP2 
3841:          FCTCE3(13)= FCTAP3 
3842:  
3843:          FCTCF1(14)= 0.321039E+02 
3844:          FCTCF2(14)=-0.698167E+00 
3845:          FCTCE0(14)= FCTAP0 
3846:          FCTCE1(14)= FCTAP1 
3847:          FCTCE2(14)= FCTAP2 
3848:          FCTCE3(14)= FCTAP3 
3849:  
3850:          FCTCF1(15)= 0.268844E+03 
3851:          FCTCF2(15)=-0.103372E+01 
3852:          FCTCE0(15)= FCTAP0 
3853:          FCTCE1(15)= FCTAP1 
3854:          FCTCE2(15)= FCTAP2 
3855:          FCTCE3(15)= FCTAP3 
3856:  
3857:          FCTCF1(16)= 0.631751E+02 
3858:          FCTCF2(16)=-0.941390E+00 
3859:          FCTCE0(16)= FCTAP0 
3860:          FCTCE1(16)= FCTAP1 
3861:          FCTCE2(16)= FCTAP2 
3862:          FCTCE3(16)= FCTAP3 
3863:  
3864:          FCTCF1(17)= 0.673429E+03 
3865:          FCTCF2(17)=-0.123948E+01 
3866:          FCTCE0(17)= FCTAP0 
3867:          FCTCE1(17)= FCTAP1 
3868:          FCTCE2(17)= FCTAP2 
3869:          FCTCE3(17)= FCTAP3 
3870:  
3871:          FCTCF1(18)= 0.673429E+03 
3872:          FCTCF2(18)=-0.123948E+01 
3873:          FCTCE0(18)= FCTAP0 
3874:          FCTCE1(18)= FCTAP1 
3875:          FCTCE2(18)= FCTAP2 
3876:          FCTCE3(18)= FCTAP3 
3877:  
3878:          FCTCF1(19)= 0.673429E+03 
3879:          FCTCF2(19)=-0.123948E+01 
3880:          FCTCE0(19)= FCTAP0 
3881:          FCTCE1(19)= FCTAP1 
3882:          FCTCE2(19)= FCTAP2 
3883:          FCTCE3(19)= FCTAP3 
3884:  
3885:          FCTVOS    = ZERO 
3886:  
3887: C Define the parameters for calculating beta. 
3888:  
3889:          FCTCH1(1 )=-0.148587E+03 
3890:          FCTCH2(1 )=-0.196968E+01 
3891:          FCTCG0(1 )= FCTBT0 
3892:          FCTCG1(1 )= FCTBT1 
3893:          FCTCG2(1 )= FCTBT2 
3894:          FCTCG3(1 )= FCTBT3 
3895:  
3896:          FCTCH1(2 )= 0.740137E+02 
3897:          FCTCH2(2 )=-0.134808E+01 
3898:          FCTCG0(2 )= FCTBT0 
3899:          FCTCG1(2 )= FCTBT1 
3900:          FCTCG2(2 )= FCTBT2 
3901:          FCTCG3(2 )= FCTBT3 
3902:  
3903:          FCTCH1(3 )= 0.740137E+02 
3904:          FCTCH2(3 )=-0.134808E+01 
3905:          FCTCG0(3 )= FCTBT0 
3906:          FCTCG1(3 )= FCTBT1 
3907:          FCTCG2(3 )= FCTBT2 
3908:          FCTCG3(3 )= FCTBT3 
3909:  
3910:          FCTCH1(4 )= 0.740137E+02 
3911:          FCTCH2(4 )=-0.134808E+01 
3912:          FCTCG0(4 )= FCTBT0 
3913:          FCTCG1(4 )= FCTBT1 
3914:          FCTCG2(4 )= FCTBT2 
3915:          FCTCG3(4 )= FCTBT3 
3916:  
3917:          FCTCH1(5 )=-0.774918E+02 
3918:          FCTCH2(5 )=-0.133410E+01 
3919:          FCTCG0(5 )= FCTBT0 
3920:          FCTCG1(5 )= FCTBT1 
3921:          FCTCG2(5 )= FCTBT2 
3922:          FCTCG3(5 )= FCTBT3 
3923:  
3924:          FCTCH1(6 )=-0.140441E+03 
3925:          FCTCH2(6 )=-0.145382E+01 
3926:          FCTCG0(6 )= FCTBT0 
3927:          FCTCG1(6 )= FCTBT1 
3928:          FCTCG2(6 )= FCTBT2 
3929:          FCTCG3(6 )= FCTBT3 
3930:  
3931:          FCTCH1(7 )= 0.696019E+02 
3932:          FCTCH2(7 )=-0.585486E+00 
3933:          FCTCG0(7 )= FCTBT0 
3934:          FCTCG1(7 )= FCTBT1 
3935:          FCTCG2(7 )= FCTBT2 
3936:          FCTCG3(7 )= FCTBT3 
3937:  
3938:          FCTCH1(8 )=-0.250171E+03 
3939:          FCTCH2(8 )=-0.949265E+00 
3940:          FCTCG0(8 )= FCTBT0 
3941:          FCTCG1(8 )= FCTBT1 
3942:          FCTCG2(8 )= FCTBT2 
3943:          FCTCG3(8 )= FCTBT3 
3944:  
3945:          FCTCH1(9 )=-0.234194E+03 
3946:          FCTCH2(9 )=-0.827453E+00 
3947:          FCTCG0(9 )= FCTBT0 
3948:          FCTCG1(9 )= FCTBT1 
3949:          FCTCG2(9 )= FCTBT2 
3950:          FCTCG3(9 )= FCTBT3 
3951:  
3952:          FCTCH1(10)=-0.500339E+03 
3953:          FCTCH2(10)=-0.521275E+00 
3954:          FCTCG0(10)= FCTBT0 
3955:          FCTCG1(10)= FCTBT1 
3956:          FCTCG2(10)= FCTBT2 
3957:          FCTCG3(10)= FCTBT3 
3958:  
3959:          FCTCH1(11)=-0.477266E+03 
3960:          FCTCH2(11)=-0.513087E+00 
3961:          FCTCG0(11)= FCTBT0 
3962:          FCTCG1(11)= FCTBT1 
3963:          FCTCG2(11)= FCTBT2 
3964:          FCTCG3(11)= FCTBT3 
3965:  
3966:          FCTCH1(12)= 0.118886E+03 
3967:          FCTCH2(12)=-0.717360E+00 
3968:          FCTCG0(12)= FCTBT0 
3969:          FCTCG1(12)= FCTBT1 
3970:          FCTCG2(12)= FCTBT2 
3971:          FCTCG3(12)= FCTBT3 
3972:  
3973:          FCTCH1(13)=-0.951296E+02 
3974:          FCTCH2(13)=-0.979302E+00 
3975:          FCTCG0(13)= FCTBT0 
3976:          FCTCG1(13)= FCTBT1 
3977:          FCTCG2(13)= FCTBT2 
3978:          FCTCG3(13)= FCTBT3 
3979:  
3980:          FCTCH1(14)= 0.321039E+02 
3981:          FCTCH2(14)=-0.698167E+00 
3982:          FCTCG0(14)= FCTBT0 
3983:          FCTCG1(14)= FCTBT1 
3984:          FCTCG2(14)= FCTBT2 
3985:          FCTCG3(14)= FCTBT3 
3986:  
3987:          FCTCH1(15)= 0.268844E+03 
3988:          FCTCH2(15)=-0.103372E+01 
3989:          FCTCG0(15)= FCTBT0 
3990:          FCTCG1(15)= FCTBT1 
3991:          FCTCG2(15)= FCTBT2 
3992:          FCTCG3(15)= FCTBT3 
3993:  
3994:          FCTCH1(16)= 0.631751E+02 
3995:          FCTCH2(16)=-0.941390E+00 
3996:          FCTCG0(16)= FCTBT0 
3997:          FCTCG1(16)= FCTBT1 
3998:          FCTCG2(16)= FCTBT2 
3999:          FCTCG3(16)= FCTBT3 
4000:  
4001:          FCTCH1(17)= 0.673429E+03 
4002:          FCTCH2(17)=-0.123948E+01 
4003:          FCTCG0(17)= FCTBT0 
4004:          FCTCG1(17)= FCTBT1 
4005:          FCTCG2(17)= FCTBT2 
4006:          FCTCG3(17)= FCTBT3 
4007:  
4008:          FCTCH1(18)= 0.673429E+03 
4009:          FCTCH2(18)=-0.123948E+01 
4010:          FCTCG0(18)= FCTBT0 
4011:          FCTCG1(18)= FCTBT1 
4012:          FCTCG2(18)= FCTBT2 
4013:          FCTCG3(18)= FCTBT3 
4014:  
4015:          FCTCH1(19)= 0.673429E+03 
4016:          FCTCH2(19)=-0.123948E+01 
4017:          FCTCG0(19)= FCTBT0 
4018:          FCTCG1(19)= FCTBT1 
4019:          FCTCG2(19)= FCTBT2 
4020:          FCTCG3(19)= FCTBT3 
4021:  
4022:          FCTWOS    = ZERO 
4023:  
4024: C Define the initial value for the measure of symmetry. 
4025:  
4026:          FCTBIN    = ZERO 
4027:  
4028: C Define the factor for the exponential function in the Generalized Born 
4029: C formula. 
4030:  
4031:          FCTKPS    = FOUR 
4032:  
4033: C Define the quenching factors for the atomic solvation energies. They 
4034: C affect both atomic solvation and interaction energies. 
4035:  
4036:          FCTQUN(1 )= ONE 
4037:          FCTQUN(2 )= ONE 
4038:          FCTQUN(3 )= ONE 
4039:          FCTQUN(4 )= ONE 
4040:          FCTQUN(5 )= ONE 
4041:          FCTQUN(6 )= ONE 
4042:          FCTQUN(7 )= ONE 
4043:          FCTQUN(8 )= ONE 
4044:          FCTQUN(9 )= ONE 
4045:          FCTQUN(10)= ONE 
4046:          FCTQUN(11)= ONE 
4047:          FCTQUN(12)= ONE 
4048:          FCTQUN(13)= ONE 
4049:          FCTQUN(14)= ONE 
4050:          FCTQUN(15)= ONE 
4051:          FCTQUN(16)= ONE 
4052:          FCTQUN(17)= ONE 
4053:          FCTQUN(18)= ONE 
4054:          FCTQUN(19)= ONE 
4055:  
4056: C Define the scaling factors for the charges and for the FCTNPS factors. 
4057: C They only affect atomic solvation energies and the nonpolar 
4058: C contributions that are proportional to the unit charge atomic 
4059: C solvation energies. They do not affect interaction energies. 
4060:  
4061:          FCTSCF(1 )= ONE 
4062:          FCTSCF(2 )= ONE 
4063:          FCTSCF(3 )= ONE 
4064:          FCTSCF(4 )= ONE 
4065:          FCTSCF(5 )= ONE 
4066:          FCTSCF(6 )= ONE 
4067:          FCTSCF(7 )= ONE 
4068:          FCTSCF(8 )= ONE 
4069:          FCTSCF(9 )= ONE 
4070:          FCTSCF(10)= ONE 
4071:          FCTSCF(11)= ONE 
4072:          FCTSCF(12)= ONE 
4073:          FCTSCF(13)= ONE 
4074:          FCTSCF(14)= ONE 
4075:          FCTSCF(15)= ONE 
4076:          FCTSCF(16)= ONE 
4077:          FCTSCF(17)= ONE 
4078:          FCTSCF(18)= ONE 
4079:          FCTSCF(19)= ONE 
4080:  
4081: C Define the factors to obtain the nonpolar contributions that are 
4082: C proportional to the unit charge atomic solvation energies. 
4083:  
4084:          FCTNPS(1 )= ZERO 
4085:          FCTNPS(2 )= ZERO 
4086:          FCTNPS(3 )= ZERO 
4087:          FCTNPS(4 )= ZERO 
4088:          FCTNPS(5 )= ZERO 
4089:          FCTNPS(6 )= ZERO 
4090:          FCTNPS(7 )= ZERO 
4091:          FCTNPS(8 )= ZERO 
4092:          FCTNPS(9 )= ZERO 
4093:          FCTNPS(10)= ZERO 
4094:          FCTNPS(11)= ZERO 
4095:          FCTNPS(12)= ZERO 
4096:          FCTNPS(13)= ZERO 
4097:          FCTNPS(14)= ZERO 
4098:          FCTNPS(15)= ZERO 
4099:          FCTNPS(16)= ZERO 
4100:          FCTNPS(17)= ZERO 
4101:          FCTNPS(18)= ZERO 
4102:          FCTNPS(19)= ZERO 
4103:  
4104:       ENDIF 
4105:  
4106:       IF ((FCTCPS .EQ. 22    )  .AND. 
4107:      &    (FCTEPS .EQ. ONE   )  .AND. 
4108:      &    (FCTFPS .EQ. 3     )) THEN 
4109:  
4110: C This FACTS parameter set was derived with boundary conditions at zero 
4111: C and positive infinity. 
4112:  
4113:          FCTCHO    = .TRUE. 
4114:  
4115: C Define some constants related to the dielectric medium. 
4116:  
4117:          FCTIEM    = FCTCEL/ONE 
4118:          FCTIES    = FCTCEL/78.5D0 
4119:          FCTTAU    = FCTIEM-FCTIES 
4120:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
4121:  
4122: C Define the number of native van der Waals radii. 
4123:  
4124:          FCTNNV    = 19 
4125:  
4126: C Define the number of actual van der Waals radii. 
4127:  
4128:          FCTNAV    = 19 
4129:  
4130: C Define the native van der Waals radii. 
4131:  
4132:          FCTRVW(1 )= 0.2245D0 
4133:          FCTRVW(2 )= 0.4500D0 
4134:          FCTRVW(3 )= 0.7000D0 
4135:          FCTRVW(4 )= 0.9000D0 
4136:          FCTRVW(5 )= 1.3200D0 
4137:          FCTRVW(6 )= 1.3582D0 
4138:          FCTRVW(7 )= 1.4680D0 
4139:          FCTRVW(8 )= 1.7000D0 
4140:          FCTRVW(9 )= 1.7700D0 
4141:          FCTRVW(10)= 1.8000D0 
4142:          FCTRVW(11)= 1.8500D0 
4143:          FCTRVW(12)= 1.9750D0 
4144:          FCTRVW(13)= 1.9924D0 
4145:          FCTRVW(14)= 2.0000D0 
4146:          FCTRVW(15)= 2.0600D0 
4147:          FCTRVW(16)= 2.1750D0 
4148:          FCTRVW(17)= 2.2350D0 
4149:          FCTRVW(18)= 2.2750D0 
4150:          FCTRVW(19)= 2.3650D0 
4151:  
4152: C Define the cutoffs for the FACTS self and interaction energy pair 
4153: C lists. 
4154:  
4155:          FCTCSL    =12.0D0 
4156:          FCTCIL    =14.0D0 
4157:  
4158: C Define the cutoffs for the FACTS self and interaction energy 
4159: C calculations. 
4160:  
4161:          FCTCSC(1 )= 0.714752E+01 
4162:          FCTCSC(2 )= 0.770910E+01 
4163:          FCTCSC(3 )= 0.600000E+01 
4164:          FCTCSC(4 )= 0.715806E+01 
4165:          FCTCSC(5 )= 0.807040E+01 
4166:          FCTCSC(6 )= 0.826072E+01 
4167:          FCTCSC(7 )= 0.800356E+01 
4168:          FCTCSC(8 )= 0.850524E+01 
4169:          FCTCSC(9 )= 0.842862E+01 
4170:          FCTCSC(10)= 0.834750E+01 
4171:          FCTCSC(11)= 0.853229E+01 
4172:          FCTCSC(12)= 0.889733E+01 
4173:          FCTCSC(13)= 0.914446E+01 
4174:          FCTCSC(14)= 0.881827E+01 
4175:          FCTCSC(15)= 0.983259E+01 
4176:          FCTCSC(16)= 0.889709E+01 
4177:          FCTCSC(17)= 0.600000E+01 
4178:          FCTCSC(18)= 0.954038E+01 
4179:          FCTCSC(19)= 0.600000E+01 
4180:          FCTCIC    =12.0D0 
4181:  
4182: C Define the parameters for calculating atomic solvation energies. 
4183:  
4184:          FCTCB1(1 )=-0.210603E+03 
4185:          FCTCB2(1 )=-0.199137E+01 
4186:          FCTCA0(1 )=-0.150967E+03 
4187:          FCTCA1(1 )= 0.127403E+03 
4188:          FCTCA2(1 )= 0.510164E-02 
4189:          FCTCA3(1 )=-0.478652E+02 
4190:  
4191:          FCTCB1(2 )= 0.196721E+03 
4192:          FCTCB2(2 )=-0.136295E+01 
4193:          FCTCA0(2 )=-0.277468E+03 
4194:          FCTCA1(2 )= 0.277466E+03 
4195:          FCTCA2(2 )= 0.499224E-02 
4196:          FCTCA3(2 )= 0.129670E+03 
4197:  
4198:          FCTCB1(3 )= 0.196721E+03 
4199:          FCTCB2(3 )=-0.136295E+01 
4200:          FCTCA0(3 )=-0.277468E+03 
4201:          FCTCA1(3 )= 0.277466E+03 
4202:          FCTCA2(3 )= 0.499224E-02 
4203:          FCTCA3(3 )= 0.129670E+03 
4204:  
4205:          FCTCB1(4 )= 0.196721E+03 
4206:          FCTCB2(4 )=-0.136295E+01 
4207:          FCTCA0(4 )=-0.277468E+03 
4208:          FCTCA1(4 )= 0.277466E+03 
4209:          FCTCA2(4 )= 0.499224E-02 
4210:          FCTCA3(4 )= 0.129670E+03 
4211:  
4212:          FCTCB1(5 )= 0.327651E+03 
4213:          FCTCB2(5 )=-0.143178E+01 
4214:          FCTCA0(5 )=-0.218418E+03 
4215:          FCTCA1(5 )= 0.218416E+03 
4216:          FCTCA2(5 )= 0.264085E-02 
4217:          FCTCA3(5 )= 0.104488E+03 
4218:  
4219:          FCTCB1(6 )= 0.322880E+03 
4220:          FCTCB2(6 )=-0.144317E+01 
4221:          FCTCA0(6 )=-0.184482E+03 
4222:          FCTCA1(6 )= 0.184480E+03 
4223:          FCTCA2(6 )= 0.258321E-02 
4224:          FCTCA3(6 )= 0.246814E+03 
4225:  
4226:          FCTCB1(7 )= 0.208357E+03 
4227:          FCTCB2(7 )=-0.761629E+00 
4228:          FCTCA0(7 )=-0.122088E+03 
4229:          FCTCA1(7 )= 0.122086E+03 
4230:          FCTCA2(7 )= 0.397343E-02 
4231:          FCTCA3(7 )= 0.596760E+03 
4232:  
4233:          FCTCB1(8 )= 0.272497E+03 
4234:          FCTCB2(8 )=-0.121046E+01 
4235:          FCTCA0(8 )=-0.128202E+03 
4236:          FCTCA1(8 )= 0.128200E+03 
4237:          FCTCA2(8 )= 0.222000E-02 
4238:          FCTCA3(8 )= 0.499978E+03 
4239:  
4240:          FCTCB1(9 )= 0.219247E+03 
4241:          FCTCB2(9 )=-0.102267E+01 
4242:          FCTCA0(9 )=-0.114914E+03 
4243:          FCTCA1(9 )= 0.114912E+03 
4244:          FCTCA2(9 )= 0.243609E-02 
4245:          FCTCA3(9 )= 0.584393E+03 
4246:  
4247:          FCTCB1(10)= 0.226825E+03 
4248:          FCTCB2(10)=-0.129999E+01 
4249:          FCTCA0(10)=-0.199105E+03 
4250:          FCTCA1(10)= 0.199103E+03 
4251:          FCTCA2(10)= 0.162982E-02 
4252:          FCTCA3(10)=-0.104865E+03 
4253:  
4254:          FCTCB1(11)= 0.183621E+03 
4255:          FCTCB2(11)=-0.108865E+01 
4256:          FCTCA0(11)=-0.139478E+03 
4257:          FCTCA1(11)= 0.139476E+03 
4258:          FCTCA2(11)= 0.169541E-02 
4259:          FCTCA3(11)= 0.327275E+03 
4260:  
4261:          FCTCB1(12)= 0.410314E+03 
4262:          FCTCB2(12)=-0.973425E+00 
4263:          FCTCA0(12)=-0.935102E+02 
4264:          FCTCA1(12)= 0.935082E+02 
4265:          FCTCA2(12)= 0.236404E-02 
4266:          FCTCA3(12)= 0.874027E+03 
4267:  
4268:          FCTCB1(13)= 0.510548E+03 
4269:          FCTCB2(13)=-0.141151E+01 
4270:          FCTCA0(13)=-0.110269E+03 
4271:          FCTCA1(13)= 0.110267E+03 
4272:          FCTCA2(13)= 0.170081E-02 
4273:          FCTCA3(13)= 0.633798E+03 
4274:  
4275:          FCTCB1(14)= 0.469654E+03 
4276:          FCTCB2(14)=-0.111225E+01 
4277:          FCTCA0(14)=-0.108712E+03 
4278:          FCTCA1(14)= 0.108710E+03 
4279:          FCTCA2(14)= 0.171827E-02 
4280:          FCTCA3(14)= 0.651603E+03 
4281:  
4282:          FCTCB1(15)= 0.667407E+03 
4283:          FCTCB2(15)=-0.123469E+01 
4284:          FCTCA0(15)=-0.892306E+02 
4285:          FCTCA1(15)= 0.892286E+02 
4286:          FCTCA2(15)= 0.183562E-02 
4287:          FCTCA3(15)= 0.114889E+04 
4288:  
4289:          FCTCB1(16)= 0.500111E+03 
4290:          FCTCB2(16)=-0.132339E+01 
4291:          FCTCA0(16)=-0.898055E+02 
4292:          FCTCA1(16)= 0.898035E+02 
4293:          FCTCA2(16)= 0.203303E-02 
4294:          FCTCA3(16)= 0.812753E+03 
4295:  
4296:          FCTCB1(17)= 0.106765E+04 
4297:          FCTCB2(17)=-0.156808E+01 
4298:          FCTCA0(17)=-0.854426E+02 
4299:          FCTCA1(17)= 0.854406E+02 
4300:          FCTCA2(17)= 0.161973E-02 
4301:          FCTCA3(17)= 0.103900E+04 
4302:  
4303:          FCTCB1(18)= 0.106765E+04 
4304:          FCTCB2(18)=-0.156808E+01 
4305:          FCTCA0(18)=-0.854426E+02 
4306:          FCTCA1(18)= 0.854406E+02 
4307:          FCTCA2(18)= 0.161973E-02 
4308:          FCTCA3(18)= 0.103900E+04 
4309:  
4310:          FCTCB1(19)= 0.106765E+04 
4311:          FCTCB2(19)=-0.156808E+01 
4312:          FCTCA0(19)=-0.854426E+02 
4313:          FCTCA1(19)= 0.854406E+02 
4314:          FCTCA2(19)= 0.161973E-02 
4315:          FCTCA3(19)= 0.103900E+04 
4316:  
4317:          FCTQOS    = ZERO 
4318:  
4319: C Define the parameters for calculating atomic solvent accessible 
4320: C surface areas. 
4321:  
4322:          FCTCD1(1 )=-0.448975E+04 
4323:          FCTCD2(1 )=-0.977422E+01 
4324:          FCTCC0(1 )= 0.331627E+02 
4325:          FCTCC1(1 )=-0.331607E+02 
4326:          FCTCC2(1 )= 0.276020E-01 
4327:          FCTCC3(1 )=-0.719487E+04 
4328:  
4329:          FCTCD1(2 )=-0.978643E+04 
4330:          FCTCD2(2 )=-0.688345E+01 
4331:          FCTCC0(2 )= 0.872021E+01 
4332:          FCTCC1(2 )=-0.871821E+01 
4333:          FCTCC2(2 )= 0.143223E-02 
4334:          FCTCC3(2 )=-0.709153E+04 
4335:  
4336:          FCTCD1(3 )=-0.978643E+04 
4337:          FCTCD2(3 )=-0.688345E+01 
4338:          FCTCC0(3 )= 0.872021E+01 
4339:          FCTCC1(3 )=-0.871821E+01 
4340:          FCTCC2(3 )= 0.143223E-02 
4341:          FCTCC3(3 )=-0.709153E+04 
4342:  
4343:          FCTCD1(4 )=-0.978643E+04 
4344:          FCTCD2(4 )=-0.688345E+01 
4345:          FCTCC0(4 )= 0.872021E+01 
4346:          FCTCC1(4 )=-0.871821E+01 
4347:          FCTCC2(4 )= 0.143223E-02 
4348:          FCTCC3(4 )=-0.709153E+04 
4349:  
4350:          FCTCD1(5 )=-0.192740E+03 
4351:          FCTCD2(5 )=-0.176685E+01 
4352:          FCTCC0(5 )= 0.100230E+03 
4353:          FCTCC1(5 )=-0.100228E+03 
4354:          FCTCC2(5 )= 0.630842E-02 
4355:          FCTCC3(5 )=-0.578701E+03 
4356:  
4357:          FCTCD1(6 )=-0.728029E+03 
4358:          FCTCD2(6 )=-0.225798E+01 
4359:          FCTCC0(6 )= 0.163762E+03 
4360:          FCTCC1(6 )=-0.163760E+03 
4361:          FCTCC2(6 )= 0.327572E-02 
4362:          FCTCC3(6 )=-0.141485E+04 
4363:  
4364:          FCTCD1(7 )=-0.345948E+04 
4365:          FCTCD2(7 )=-0.203757E+01 
4366:          FCTCC0(7 )= 0.458058E+02 
4367:          FCTCC1(7 )=-0.458038E+02 
4368:          FCTCC2(7 )= 0.193741E-02 
4369:          FCTCC3(7 )=-0.240496E+04 
4370:  
4371:          FCTCD1(8 )=-0.193196E+04 
4372:          FCTCD2(8 )=-0.166026E+01 
4373:          FCTCC0(8 )= 0.650084E+02 
4374:          FCTCC1(8 )=-0.650064E+02 
4375:          FCTCC2(8 )= 0.245596E-02 
4376:          FCTCC3(8 )=-0.135370E+04 
4377:  
4378:          FCTCD1(9 )=-0.309785E+04 
4379:          FCTCD2(9 )=-0.119474E+01 
4380:          FCTCC0(9 )= 0.721270E+02 
4381:          FCTCC1(9 )=-0.721250E+02 
4382:          FCTCC2(9 )= 0.171363E-02 
4383:          FCTCC3(9 )=-0.208454E+04 
4384:  
4385:          FCTCD1(10)=-0.227929E+05 
4386:          FCTCD2(10)=-0.825630E+01 
4387:          FCTCC0(10)= 0.315402E+02 
4388:          FCTCC1(10)=-0.313502E+02 
4389:          FCTCC2(10)= 0.567394E-03 
4390:          FCTCC3(10)=-0.142830E+05 
4391:  
4392:          FCTCD1(11)=-0.193388E+04 
4393:          FCTCD2(11)=-0.156243E+01 
4394:          FCTCC0(11)= 0.746559E+02 
4395:          FCTCC1(11)=-0.746539E+02 
4396:          FCTCC2(11)= 0.268963E-02 
4397:          FCTCC3(11)=-0.128236E+04 
4398:  
4399:          FCTCD1(12)= 0.278812E+03 
4400:          FCTCD2(12)=-0.224176E+01 
4401:          FCTCC0(12)= 0.179508E+03 
4402:          FCTCC1(12)=-0.179460E+03 
4403:          FCTCC2(12)= 0.501248E-02 
4404:          FCTCC3(12)=-0.346746E+03 
4405:  
4406:          FCTCD1(13)=-0.609707E+04 
4407:          FCTCD2(13)=-0.203276E+00 
4408:          FCTCC0(13)= 0.160296E+03 
4409:          FCTCC1(13)=-0.160221E+03 
4410:          FCTCC2(13)= 0.882224E-03 
4411:          FCTCC3(13)=-0.537504E+04 
4412:  
4413:          FCTCD1(14)=-0.811741E+04 
4414:          FCTCD2(14)=-0.217625E+01 
4415:          FCTCC0(14)= 0.168481E+03 
4416:          FCTCC1(14)=-0.168287E+03 
4417:          FCTCC2(14)= 0.113765E-02 
4418:          FCTCC3(14)=-0.672543E+04 
4419:  
4420:          FCTCD1(15)=-0.105332E+05 
4421:          FCTCD2(15)=-0.124008E+01 
4422:          FCTCC0(15)= 0.166467E+03 
4423:          FCTCC1(15)=-0.166465E+03 
4424:          FCTCC2(15)= 0.471945E-03 
4425:          FCTCC3(15)=-0.969033E+04 
4426:  
4427:          FCTCD1(16)=-0.211060E+05 
4428:          FCTCD2(16)=-0.454142E+00 
4429:          FCTCC0(16)= 0.130754E+03 
4430:          FCTCC1(16)=-0.130750E+03 
4431:          FCTCC2(16)= 0.326802E-03 
4432:          FCTCC3(16)=-0.152890E+05 
4433:  
4434:          FCTCD1(17)=-0.639876E+03 
4435:          FCTCD2(17)=-0.199623E+01 
4436:          FCTCC0(17)= 0.178300E+03 
4437:          FCTCC1(17)=-0.178298E+03 
4438:          FCTCC2(17)= 0.302069E-02 
4439:          FCTCC3(17)=-0.103577E+04 
4440:  
4441:          FCTCD1(18)=-0.639876E+03 
4442:          FCTCD2(18)=-0.199623E+01 
4443:          FCTCC0(18)= 0.178300E+03 
4444:          FCTCC1(18)=-0.178298E+03 
4445:          FCTCC2(18)= 0.302069E-02 
4446:          FCTCC3(18)=-0.103577E+04 
4447:  
4448:          FCTCD1(19)=-0.639876E+03 
4449:          FCTCD2(19)=-0.199623E+01 
4450:          FCTCC0(19)= 0.178300E+03 
4451:          FCTCC1(19)=-0.178298E+03 
4452:          FCTCC2(19)= 0.302069E-02 
4453:          FCTCC3(19)=-0.103577E+04 
4454:  
4455:          FCTUOS    = ZERO 
4456:  
4457: C Define the parameters for calculating alpha. 
4458:  
4459:          FCTCF1(1 )=-0.210603E+03 
4460:          FCTCF2(1 )=-0.199137E+01 
4461:          FCTCE0(1 )= FCTAP0 
4462:          FCTCE1(1 )= FCTAP1 
4463:          FCTCE2(1 )= FCTAP2 
4464:          FCTCE3(1 )= FCTAP3 
4465:  
4466:          FCTCF1(2 )= 0.196721E+03 
4467:          FCTCF2(2 )=-0.136295E+01 
4468:          FCTCE0(2 )= FCTAP0 
4469:          FCTCE1(2 )= FCTAP1 
4470:          FCTCE2(2 )= FCTAP2 
4471:          FCTCE3(2 )= FCTAP3 
4472:  
4473:          FCTCF1(3 )= 0.196721E+03 
4474:          FCTCF2(3 )=-0.136295E+01 
4475:          FCTCE0(3 )= FCTAP0 
4476:          FCTCE1(3 )= FCTAP1 
4477:          FCTCE2(3 )= FCTAP2 
4478:          FCTCE3(3 )= FCTAP3 
4479:  
4480:          FCTCF1(4 )= 0.196721E+03 
4481:          FCTCF2(4 )=-0.136295E+01 
4482:          FCTCE0(4 )= FCTAP0 
4483:          FCTCE1(4 )= FCTAP1 
4484:          FCTCE2(4 )= FCTAP2 
4485:          FCTCE3(4 )= FCTAP3 
4486:  
4487:          FCTCF1(5 )= 0.327651E+03 
4488:          FCTCF2(5 )=-0.143178E+01 
4489:          FCTCE0(5 )= FCTAP0 
4490:          FCTCE1(5 )= FCTAP1 
4491:          FCTCE2(5 )= FCTAP2 
4492:          FCTCE3(5 )= FCTAP3 
4493:  
4494:          FCTCF1(6 )= 0.322880E+03 
4495:          FCTCF2(6 )=-0.144317E+01 
4496:          FCTCE0(6 )= FCTAP0 
4497:          FCTCE1(6 )= FCTAP1 
4498:          FCTCE2(6 )= FCTAP2 
4499:          FCTCE3(6 )= FCTAP3 
4500:  
4501:          FCTCF1(7 )= 0.208357E+03 
4502:          FCTCF2(7 )=-0.761629E+00 
4503:          FCTCE0(7 )= FCTAP0 
4504:          FCTCE1(7 )= FCTAP1 
4505:          FCTCE2(7 )= FCTAP2 
4506:          FCTCE3(7 )= FCTAP3 
4507:  
4508:          FCTCF1(8 )= 0.272497E+03 
4509:          FCTCF2(8 )=-0.121046E+01 
4510:          FCTCE0(8 )= FCTAP0 
4511:          FCTCE1(8 )= FCTAP1 
4512:          FCTCE2(8 )= FCTAP2 
4513:          FCTCE3(8 )= FCTAP3 
4514:  
4515:          FCTCF1(9 )= 0.219247E+03 
4516:          FCTCF2(9 )=-0.102267E+01 
4517:          FCTCE0(9 )= FCTAP0 
4518:          FCTCE1(9 )= FCTAP1 
4519:          FCTCE2(9 )= FCTAP2 
4520:          FCTCE3(9 )= FCTAP3 
4521:  
4522:          FCTCF1(10)= 0.226825E+03 
4523:          FCTCF2(10)=-0.129999E+01 
4524:          FCTCE0(10)= FCTAP0 
4525:          FCTCE1(10)= FCTAP1 
4526:          FCTCE2(10)= FCTAP2 
4527:          FCTCE3(10)= FCTAP3 
4528:  
4529:          FCTCF1(11)= 0.183621E+03 
4530:          FCTCF2(11)=-0.108865E+01 
4531:          FCTCE0(11)= FCTAP0 
4532:          FCTCE1(11)= FCTAP1 
4533:          FCTCE2(11)= FCTAP2 
4534:          FCTCE3(11)= FCTAP3 
4535:  
4536:          FCTCF1(12)= 0.410314E+03 
4537:          FCTCF2(12)=-0.973425E+00 
4538:          FCTCE0(12)= FCTAP0 
4539:          FCTCE1(12)= FCTAP1 
4540:          FCTCE2(12)= FCTAP2 
4541:          FCTCE3(12)= FCTAP3 
4542:  
4543:          FCTCF1(13)= 0.510548E+03 
4544:          FCTCF2(13)=-0.141151E+01 
4545:          FCTCE0(13)= FCTAP0 
4546:          FCTCE1(13)= FCTAP1 
4547:          FCTCE2(13)= FCTAP2 
4548:          FCTCE3(13)= FCTAP3 
4549:  
4550:          FCTCF1(14)= 0.469654E+03 
4551:          FCTCF2(14)=-0.111225E+01 
4552:          FCTCE0(14)= FCTAP0 
4553:          FCTCE1(14)= FCTAP1 
4554:          FCTCE2(14)= FCTAP2 
4555:          FCTCE3(14)= FCTAP3 
4556:  
4557:          FCTCF1(15)= 0.667407E+03 
4558:          FCTCF2(15)=-0.123469E+01 
4559:          FCTCE0(15)= FCTAP0 
4560:          FCTCE1(15)= FCTAP1 
4561:          FCTCE2(15)= FCTAP2 
4562:          FCTCE3(15)= FCTAP3 
4563:  
4564:          FCTCF1(16)= 0.500111E+03 
4565:          FCTCF2(16)=-0.132339E+01 
4566:          FCTCE0(16)= FCTAP0 
4567:          FCTCE1(16)= FCTAP1 
4568:          FCTCE2(16)= FCTAP2 
4569:          FCTCE3(16)= FCTAP3 
4570:  
4571:          FCTCF1(17)= 0.106765E+04 
4572:          FCTCF2(17)=-0.156808E+01 
4573:          FCTCE0(17)= FCTAP0 
4574:          FCTCE1(17)= FCTAP1 
4575:          FCTCE2(17)= FCTAP2 
4576:          FCTCE3(17)= FCTAP3 
4577:  
4578:          FCTCF1(18)= 0.106765E+04 
4579:          FCTCF2(18)=-0.156808E+01 
4580:          FCTCE0(18)= FCTAP0 
4581:          FCTCE1(18)= FCTAP1 
4582:          FCTCE2(18)= FCTAP2 
4583:          FCTCE3(18)= FCTAP3 
4584:  
4585:          FCTCF1(19)= 0.106765E+04 
4586:          FCTCF2(19)=-0.156808E+01 
4587:          FCTCE0(19)= FCTAP0 
4588:          FCTCE1(19)= FCTAP1 
4589:          FCTCE2(19)= FCTAP2 
4590:          FCTCE3(19)= FCTAP3 
4591:  
4592:          FCTVOS    = ZERO 
4593:  
4594: C Define the parameters for calculating beta. 
4595:  
4596:          FCTCH1(1 )=-0.210603E+03 
4597:          FCTCH2(1 )=-0.199137E+01 
4598:          FCTCG0(1 )= FCTBT0 
4599:          FCTCG1(1 )= FCTBT1 
4600:          FCTCG2(1 )= FCTBT2 
4601:          FCTCG3(1 )= FCTBT3 
4602:  
4603:          FCTCH1(2 )= 0.196721E+03 
4604:          FCTCH2(2 )=-0.136295E+01 
4605:          FCTCG0(2 )= FCTBT0 
4606:          FCTCG1(2 )= FCTBT1 
4607:          FCTCG2(2 )= FCTBT2 
4608:          FCTCG3(2 )= FCTBT3 
4609:  
4610:          FCTCH1(3 )= 0.196721E+03 
4611:          FCTCH2(3 )=-0.136295E+01 
4612:          FCTCG0(3 )= FCTBT0 
4613:          FCTCG1(3 )= FCTBT1 
4614:          FCTCG2(3 )= FCTBT2 
4615:          FCTCG3(3 )= FCTBT3 
4616:  
4617:          FCTCH1(4 )= 0.196721E+03 
4618:          FCTCH2(4 )=-0.136295E+01 
4619:          FCTCG0(4 )= FCTBT0 
4620:          FCTCG1(4 )= FCTBT1 
4621:          FCTCG2(4 )= FCTBT2 
4622:          FCTCG3(4 )= FCTBT3 
4623:  
4624:          FCTCH1(5 )= 0.327651E+03 
4625:          FCTCH2(5 )=-0.143178E+01 
4626:          FCTCG0(5 )= FCTBT0 
4627:          FCTCG1(5 )= FCTBT1 
4628:          FCTCG2(5 )= FCTBT2 
4629:          FCTCG3(5 )= FCTBT3 
4630:  
4631:          FCTCH1(6 )= 0.322880E+03 
4632:          FCTCH2(6 )=-0.144317E+01 
4633:          FCTCG0(6 )= FCTBT0 
4634:          FCTCG1(6 )= FCTBT1 
4635:          FCTCG2(6 )= FCTBT2 
4636:          FCTCG3(6 )= FCTBT3 
4637:  
4638:          FCTCH1(7 )= 0.208357E+03 
4639:          FCTCH2(7 )=-0.761629E+00 
4640:          FCTCG0(7 )= FCTBT0 
4641:          FCTCG1(7 )= FCTBT1 
4642:          FCTCG2(7 )= FCTBT2 
4643:          FCTCG3(7 )= FCTBT3 
4644:  
4645:          FCTCH1(8 )= 0.272497E+03 
4646:          FCTCH2(8 )=-0.121046E+01 
4647:          FCTCG0(8 )= FCTBT0 
4648:          FCTCG1(8 )= FCTBT1 
4649:          FCTCG2(8 )= FCTBT2 
4650:          FCTCG3(8 )= FCTBT3 
4651:  
4652:          FCTCH1(9 )= 0.219247E+03 
4653:          FCTCH2(9 )=-0.102267E+01 
4654:          FCTCG0(9 )= FCTBT0 
4655:          FCTCG1(9 )= FCTBT1 
4656:          FCTCG2(9 )= FCTBT2 
4657:          FCTCG3(9 )= FCTBT3 
4658:  
4659:          FCTCH1(10)= 0.226825E+03 
4660:          FCTCH2(10)=-0.129999E+01 
4661:          FCTCG0(10)= FCTBT0 
4662:          FCTCG1(10)= FCTBT1 
4663:          FCTCG2(10)= FCTBT2 
4664:          FCTCG3(10)= FCTBT3 
4665:  
4666:          FCTCH1(11)= 0.183621E+03 
4667:          FCTCH2(11)=-0.108865E+01 
4668:          FCTCG0(11)= FCTBT0 
4669:          FCTCG1(11)= FCTBT1 
4670:          FCTCG2(11)= FCTBT2 
4671:          FCTCG3(11)= FCTBT3 
4672:  
4673:          FCTCH1(12)= 0.410314E+03 
4674:          FCTCH2(12)=-0.973425E+00 
4675:          FCTCG0(12)= FCTBT0 
4676:          FCTCG1(12)= FCTBT1 
4677:          FCTCG2(12)= FCTBT2 
4678:          FCTCG3(12)= FCTBT3 
4679:  
4680:          FCTCH1(13)= 0.510548E+03 
4681:          FCTCH2(13)=-0.141151E+01 
4682:          FCTCG0(13)= FCTBT0 
4683:          FCTCG1(13)= FCTBT1 
4684:          FCTCG2(13)= FCTBT2 
4685:          FCTCG3(13)= FCTBT3 
4686:  
4687:          FCTCH1(14)= 0.469654E+03 
4688:          FCTCH2(14)=-0.111225E+01 
4689:          FCTCG0(14)= FCTBT0 
4690:          FCTCG1(14)= FCTBT1 
4691:          FCTCG2(14)= FCTBT2 
4692:          FCTCG3(14)= FCTBT3 
4693:  
4694:          FCTCH1(15)= 0.667407E+03 
4695:          FCTCH2(15)=-0.123469E+01 
4696:          FCTCG0(15)= FCTBT0 
4697:          FCTCG1(15)= FCTBT1 
4698:          FCTCG2(15)= FCTBT2 
4699:          FCTCG3(15)= FCTBT3 
4700:  
4701:          FCTCH1(16)= 0.500111E+03 
4702:          FCTCH2(16)=-0.132339E+01 
4703:          FCTCG0(16)= FCTBT0 
4704:          FCTCG1(16)= FCTBT1 
4705:          FCTCG2(16)= FCTBT2 
4706:          FCTCG3(16)= FCTBT3 
4707:  
4708:          FCTCH1(17)= 0.106765E+04 
4709:          FCTCH2(17)=-0.156808E+01 
4710:          FCTCG0(17)= FCTBT0 
4711:          FCTCG1(17)= FCTBT1 
4712:          FCTCG2(17)= FCTBT2 
4713:          FCTCG3(17)= FCTBT3 
4714:  
4715:          FCTCH1(18)= 0.106765E+04 
4716:          FCTCH2(18)=-0.156808E+01 
4717:          FCTCG0(18)= FCTBT0 
4718:          FCTCG1(18)= FCTBT1 
4719:          FCTCG2(18)= FCTBT2 
4720:          FCTCG3(18)= FCTBT3 
4721:  
4722:          FCTCH1(19)= 0.106765E+04 
4723:          FCTCH2(19)=-0.156808E+01 
4724:          FCTCG0(19)= FCTBT0 
4725:          FCTCG1(19)= FCTBT1 
4726:          FCTCG2(19)= FCTBT2 
4727:          FCTCG3(19)= FCTBT3 
4728:  
4729:          FCTWOS    = ZERO 
4730:  
4731: C Define the initial value for the measure of symmetry. 
4732:  
4733:          FCTBIN    = ONE 
4734:  
4735: C Define the factor for the exponential function in the Generalized Born 
4736: C formula. 
4737:  
4738:          FCTKPS    = FOUR 
4739:  
4740: C Define the quenching factors for the atomic solvation energies. They 
4741: C affect both atomic solvation and interaction energies. 
4742:  
4743:          FCTQUN(1 )= ONE 
4744:          FCTQUN(2 )= ONE 
4745:          FCTQUN(3 )= ONE 
4746:          FCTQUN(4 )= ONE 
4747:          FCTQUN(5 )= ONE 
4748:          FCTQUN(6 )= ONE 
4749:          FCTQUN(7 )= ONE 
4750:          FCTQUN(8 )= ONE 
4751:          FCTQUN(9 )= ONE 
4752:          FCTQUN(10)= ONE 
4753:          FCTQUN(11)= ONE 
4754:          FCTQUN(12)= ONE 
4755:          FCTQUN(13)= ONE 
4756:          FCTQUN(14)= ONE 
4757:          FCTQUN(15)= ONE 
4758:          FCTQUN(16)= ONE 
4759:          FCTQUN(17)= ONE 
4760:          FCTQUN(18)= ONE 
4761:          FCTQUN(19)= ONE 
4762:  
4763: C Define the scaling factors for the charges and for the FCTNPS factors. 
4764: C They only affect atomic solvation energies and the nonpolar 
4765: C contributions that are proportional to the unit charge atomic 
4766: C solvation energies. They do not affect interaction energies. 
4767:  
4768:          FCTSCF(1 )= ONE 
4769:          FCTSCF(2 )= ONE 
4770:          FCTSCF(3 )= ONE 
4771:          FCTSCF(4 )= ONE 
4772:          FCTSCF(5 )= ONE 
4773:          FCTSCF(6 )= ONE 
4774:          FCTSCF(7 )= ONE 
4775:          FCTSCF(8 )= ONE 
4776:          FCTSCF(9 )= ONE 
4777:          FCTSCF(10)= ONE 
4778:          FCTSCF(11)= ONE 
4779:          FCTSCF(12)= ONE 
4780:          FCTSCF(13)= ONE 
4781:          FCTSCF(14)= ONE 
4782:          FCTSCF(15)= ONE 
4783:          FCTSCF(16)= ONE 
4784:          FCTSCF(17)= ONE 
4785:          FCTSCF(18)= ONE 
4786:          FCTSCF(19)= ONE 
4787:  
4788: C Define the factors to obtain the nonpolar contributions that are 
4789: C proportional to the unit charge atomic solvation energies. 
4790:  
4791:          FCTNPS(1 )= ZERO 
4792:          FCTNPS(2 )= ZERO 
4793:          FCTNPS(3 )= ZERO 
4794:          FCTNPS(4 )= ZERO 
4795:          FCTNPS(5 )= ZERO 
4796:          FCTNPS(6 )= ZERO 
4797:          FCTNPS(7 )= ZERO 
4798:          FCTNPS(8 )= ZERO 
4799:          FCTNPS(9 )= ZERO 
4800:          FCTNPS(10)= ZERO 
4801:          FCTNPS(11)= ZERO 
4802:          FCTNPS(12)= ZERO 
4803:          FCTNPS(13)= ZERO 
4804:          FCTNPS(14)= ZERO 
4805:          FCTNPS(15)= ZERO 
4806:          FCTNPS(16)= ZERO 
4807:          FCTNPS(17)= ZERO 
4808:          FCTNPS(18)= ZERO 
4809:          FCTNPS(19)= ZERO 
4810:  
4811:       ENDIF 
4812:  
4813:       IF ((FCTCPS .EQ. 22    )  .AND. 
4814:      &    (FCTEPS .EQ. ONE   )  .AND. 
4815:      &    (FCTFPS .EQ. 4     )) THEN 
4816:  
4817: C This FACTS parameter set was derived with no boundary conditions. 
4818:  
4819:          FCTCHO    = .TRUE. 
4820:  
4821: C Define some constants related to the dielectric medium. 
4822:  
4823:          FCTIEM    = FCTCEL/ONE 
4824:          FCTIES    = FCTCEL/78.5D0 
4825:          FCTTAU    = FCTIEM-FCTIES 
4826:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
4827:  
4828: C Define the number of native van der Waals radii. 
4829:  
4830:          FCTNNV    = 19 
4831:  
4832: C Define the number of actual van der Waals radii. 
4833:  
4834:          FCTNAV    = 19 
4835:  
4836: C Define the native van der Waals radii. 
4837:  
4838:          FCTRVW(1 )= 0.2245D0 
4839:          FCTRVW(2 )= 0.4500D0 
4840:          FCTRVW(3 )= 0.7000D0 
4841:          FCTRVW(4 )= 0.9000D0 
4842:          FCTRVW(5 )= 1.3200D0 
4843:          FCTRVW(6 )= 1.3582D0 
4844:          FCTRVW(7 )= 1.4680D0 
4845:          FCTRVW(8 )= 1.7000D0 
4846:          FCTRVW(9 )= 1.7700D0 
4847:          FCTRVW(10)= 1.8000D0 
4848:          FCTRVW(11)= 1.8500D0 
4849:          FCTRVW(12)= 1.9750D0 
4850:          FCTRVW(13)= 1.9924D0 
4851:          FCTRVW(14)= 2.0000D0 
4852:          FCTRVW(15)= 2.0600D0 
4853:          FCTRVW(16)= 2.1750D0 
4854:          FCTRVW(17)= 2.2350D0 
4855:          FCTRVW(18)= 2.2750D0 
4856:          FCTRVW(19)= 2.3650D0 
4857:  
4858: C Define the cutoffs for the FACTS self and interaction energy pair 
4859: C lists. 
4860:  
4861:          FCTCSL    =12.0D0 
4862:          FCTCIL    =14.0D0 
4863:  
4864: C Define the cutoffs for the FACTS self and interaction energy 
4865: C calculations. 
4866:  
4867:          FCTCSC(1 )= 0.714652E+01 
4868:          FCTCSC(2 )= 0.986561E+01 
4869:          FCTCSC(3 )= 0.600000E+01 
4870:          FCTCSC(4 )= 0.712021E+01 
4871:          FCTCSC(5 )= 0.814320E+01 
4872:          FCTCSC(6 )= 0.838075E+01 
4873:          FCTCSC(7 )= 0.802833E+01 
4874:          FCTCSC(8 )= 0.853973E+01 
4875:          FCTCSC(9 )= 0.850368E+01 
4876:          FCTCSC(10)= 0.837127E+01 
4877:          FCTCSC(11)= 0.849777E+01 
4878:          FCTCSC(12)= 0.884036E+01 
4879:          FCTCSC(13)= 0.920827E+01 
4880:          FCTCSC(14)= 0.882238E+01 
4881:          FCTCSC(15)= 0.986489E+01 
4882:          FCTCSC(16)= 0.891896E+01 
4883:          FCTCSC(17)= 0.600000E+01 
4884:          FCTCSC(18)= 0.953929E+01 
4885:          FCTCSC(19)= 0.600000E+01 
4886:          FCTCIC    =12.0D0 
4887:  
4888: C Define the parameters for calculating atomic solvation energies. 
4889:  
4890:          FCTCB1(1 )=-0.148587E+03 
4891:          FCTCB2(1 )=-0.196968E+01 
4892:          FCTCA0(1 )=-0.158448E+03 
4893:          FCTCA1(1 )= 0.136063E+03 
4894:          FCTCA2(1 )= 0.498271E-02 
4895:          FCTCA3(1 )=-0.379617E+02 
4896:  
4897:          FCTCB1(2 )= 0.148938E+03 
4898:          FCTCB2(2 )=-0.132070E+01 
4899:          FCTCA0(2 )=-0.173338E+03 
4900:          FCTCA1(2 )= 0.155882E+03 
4901:          FCTCA2(2 )= 0.811466E-02 
4902:          FCTCA3(2 )= 0.244496E+03 
4903:  
4904:          FCTCB1(3 )= 0.148938E+03 
4905:          FCTCB2(3 )=-0.132070E+01 
4906:          FCTCA0(3 )=-0.173338E+03 
4907:          FCTCA1(3 )= 0.155882E+03 
4908:          FCTCA2(3 )= 0.811466E-02 
4909:          FCTCA3(3 )= 0.244496E+03 
4910:  
4911:          FCTCB1(4 )= 0.148938E+03 
4912:          FCTCB2(4 )=-0.132070E+01 
4913:          FCTCA0(4 )=-0.173338E+03 
4914:          FCTCA1(4 )= 0.155882E+03 
4915:          FCTCA2(4 )= 0.811466E-02 
4916:          FCTCA3(4 )= 0.244496E+03 
4917:  
4918:          FCTCB1(5 )=-0.305104E+03 
4919:          FCTCB2(5 )=-0.111371E+01 
4920:          FCTCA0(5 )=-0.108983E+03 
4921:          FCTCA1(5 )= 0.101877E+03 
4922:          FCTCA2(5 )= 0.317461E-02 
4923:          FCTCA3(5 )= 0.367529E+03 
4924:  
4925:          FCTCB1(6 )=-0.221576E+03 
4926:          FCTCB2(6 )=-0.138737E+01 
4927:          FCTCA0(6 )=-0.110915E+03 
4928:          FCTCA1(6 )= 0.103524E+03 
4929:          FCTCA2(6 )= 0.299797E-02 
4930:          FCTCA3(6 )= 0.405182E+03 
4931:  
4932:          FCTCB1(7 )= 0.369364E+02 
4933:          FCTCB2(7 )=-0.498136E+00 
4934:          FCTCA0(7 )=-0.104247E+03 
4935:          FCTCA1(7 )= 0.949737E+02 
4936:          FCTCA2(7 )= 0.502617E-02 
4937:          FCTCA3(7 )= 0.642582E+03 
4938:  
4939:          FCTCB1(8 )=-0.341674E+03 
4940:          FCTCB2(8 )=-0.883105E+00 
4941:          FCTCA0(8 )=-0.943883E+02 
4942:          FCTCA1(8 )= 0.942109E+02 
4943:          FCTCA2(8 )= 0.232945E-02 
4944:          FCTCA3(8 )= 0.680033E+03 
4945:  
4946:          FCTCB1(9 )=-0.221713E+03 
4947:          FCTCB2(9 )=-0.836988E+00 
4948:          FCTCA0(9 )=-0.929244E+02 
4949:          FCTCA1(9 )= 0.929224E+02 
4950:          FCTCA2(9 )= 0.243538E-02 
4951:          FCTCA3(9 )= 0.693472E+03 
4952:  
4953:          FCTCB1(10)= 0.865806E+01 
4954:          FCTCB2(10)=-0.108666E+01 
4955:          FCTCA0(10)=-0.123349E+03 
4956:          FCTCA1(10)= 0.123347E+03 
4957:          FCTCA2(10)= 0.185919E-02 
4958:          FCTCA3(10)= 0.351961E+03 
4959:  
4960:          FCTCB1(11)=-0.459976E+03 
4961:          FCTCB2(11)=-0.523950E+00 
4962:          FCTCA0(11)=-0.887323E+02 
4963:          FCTCA1(11)= 0.887303E+02 
4964:          FCTCA2(11)= 0.208277E-02 
4965:          FCTCA3(11)= 0.755828E+03 
4966:  
4967:          FCTCB1(12)= 0.503292E+03 
4968:          FCTCB2(12)=-0.107570E+01 
4969:          FCTCA0(12)=-0.790794E+02 
4970:          FCTCA1(12)= 0.687793E+02 
4971:          FCTCA2(12)= 0.354875E-02 
4972:          FCTCA3(12)= 0.896420E+03 
4973:  
4974:          FCTCB1(13)=-0.114883E+03 
4975:          FCTCB2(13)=-0.964277E+00 
4976:          FCTCA0(13)=-0.819019E+02 
4977:          FCTCA1(13)= 0.818999E+02 
4978:          FCTCA2(13)= 0.189699E-02 
4979:          FCTCA3(13)= 0.948533E+03 
4980:  
4981:          FCTCB1(14)=-0.258760E+01 
4982:          FCTCB2(14)=-0.665425E+00 
4983:          FCTCA0(14)=-0.810234E+02 
4984:          FCTCA1(14)= 0.810214E+02 
4985:          FCTCA2(14)= 0.203711E-02 
4986:          FCTCA3(14)= 0.962221E+03 
4987:  
4988:          FCTCB1(15)=-0.562214E+02 
4989:          FCTCB2(15)=-0.844556E+00 
4990:          FCTCA0(15)=-0.755199E+02 
4991:          FCTCA1(15)= 0.755179E+02 
4992:          FCTCA2(15)= 0.193532E-02 
4993:          FCTCA3(15)= 0.131543E+04 
4994:  
4995:          FCTCB1(16)=-0.874508E+02 
4996:          FCTCB2(16)=-0.806689E+00 
4997:          FCTCA0(16)=-0.731234E+02 
4998:          FCTCA1(16)= 0.730867E+02 
4999:          FCTCA2(16)= 0.228109E-02 
5000:          FCTCA3(16)= 0.101119E+04 
5001:  
5002:          FCTCB1(17)= 0.715275E+03 
5003:          FCTCB2(17)=-0.127219E+01 
5004:          FCTCA0(17)=-0.728567E+02 
5005:          FCTCA1(17)= 0.726676E+02 
5006:          FCTCA2(17)= 0.182543E-02 
5007:          FCTCA3(17)= 0.123203E+04 
5008:  
5009:          FCTCB1(18)= 0.715275E+03 
5010:          FCTCB2(18)=-0.127219E+01 
5011:          FCTCA0(18)=-0.728567E+02 
5012:          FCTCA1(18)= 0.726676E+02 
5013:          FCTCA2(18)= 0.182543E-02 
5014:          FCTCA3(18)= 0.123203E+04 
5015:  
5016:          FCTCB1(19)= 0.715275E+03 
5017:          FCTCB2(19)=-0.127219E+01 
5018:          FCTCA0(19)=-0.728567E+02 
5019:          FCTCA1(19)= 0.726676E+02 
5020:          FCTCA2(19)= 0.182543E-02 
5021:          FCTCA3(19)= 0.123203E+04 
5022:  
5023:          FCTQOS    = ZERO 
5024:  
5025: C Define the parameters for calculating atomic solvent accessible 
5026: C surface areas. 
5027:  
5028:          FCTCD1(1 )=-0.448975E+04 
5029:          FCTCD2(1 )=-0.977422E+01 
5030:          FCTCC0(1 )= 0.331627E+02 
5031:          FCTCC1(1 )=-0.331607E+02 
5032:          FCTCC2(1 )= 0.276020E-01 
5033:          FCTCC3(1 )=-0.719487E+04 
5034:  
5035:          FCTCD1(2 )=-0.252195E+04 
5036:          FCTCD2(2 )=-0.310804E+01 
5037:          FCTCC0(2 )= 0.878806E+01 
5038:          FCTCC1(2 )=-0.878606E+01 
5039:          FCTCC2(2 )= 0.469353E-02 
5040:          FCTCC3(2 )=-0.187500E+04 
5041:  
5042:          FCTCD1(3 )=-0.252195E+04 
5043:          FCTCD2(3 )=-0.310804E+01 
5044:          FCTCC0(3 )= 0.878806E+01 
5045:          FCTCC1(3 )=-0.878606E+01 
5046:          FCTCC2(3 )= 0.469353E-02 
5047:          FCTCC3(3 )=-0.187500E+04 
5048:  
5049:          FCTCD1(4 )=-0.252195E+04 
5050:          FCTCD2(4 )=-0.310804E+01 
5051:          FCTCC0(4 )= 0.878806E+01 
5052:          FCTCC1(4 )=-0.878606E+01 
5053:          FCTCC2(4 )= 0.469353E-02 
5054:          FCTCC3(4 )=-0.187500E+04 
5055:  
5056:          FCTCD1(5 )=-0.192740E+03 
5057:          FCTCD2(5 )=-0.176685E+01 
5058:          FCTCC0(5 )= 0.100230E+03 
5059:          FCTCC1(5 )=-0.100228E+03 
5060:          FCTCC2(5 )= 0.630842E-02 
5061:          FCTCC3(5 )=-0.578701E+03 
5062:  
5063:          FCTCD1(6 )=-0.730774E+03 
5064:          FCTCD2(6 )=-0.226116E+01 
5065:          FCTCC0(6 )= 0.163737E+03 
5066:          FCTCC1(6 )=-0.163735E+03 
5067:          FCTCC2(6 )= 0.324340E-02 
5068:          FCTCC3(6 )=-0.143345E+04 
5069:  
5070:          FCTCD1(7 )=-0.358859E+04 
5071:          FCTCD2(7 )=-0.205353E+01 
5072:          FCTCC0(7 )= 0.455314E+02 
5073:          FCTCC1(7 )=-0.455294E+02 
5074:          FCTCC2(7 )= 0.186269E-02 
5075:          FCTCC3(7 )=-0.251209E+04 
5076:  
5077:          FCTCD1(8 )=-0.195091E+04 
5078:          FCTCD2(8 )=-0.167523E+01 
5079:          FCTCC0(8 )= 0.650048E+02 
5080:          FCTCC1(8 )=-0.650028E+02 
5081:          FCTCC2(8 )= 0.241968E-02 
5082:          FCTCC3(8 )=-0.138528E+04 
5083:  
5084:          FCTCD1(9 )=-0.296035E+04 
5085:          FCTCD2(9 )=-0.147375E+01 
5086:          FCTCC0(9 )= 0.793192E+02 
5087:          FCTCC1(9 )=-0.793172E+02 
5088:          FCTCC2(9 )= 0.165563E-02 
5089:          FCTCC3(9 )=-0.221748E+04 
5090:  
5091:          FCTCD1(10)=-0.117464E+05 
5092:          FCTCD2(10)=-0.539960E+01 
5093:          FCTCC0(10)= 0.317380E+02 
5094:          FCTCC1(10)=-0.315388E+02 
5095:          FCTCC2(10)= 0.104259E-02 
5096:          FCTCC3(10)=-0.750000E+04 
5097:  
5098:          FCTCD1(11)=-0.189210E+04 
5099:          FCTCD2(11)=-0.160476E+01 
5100:          FCTCC0(11)= 0.747670E+02 
5101:          FCTCC1(11)=-0.747650E+02 
5102:          FCTCC2(11)= 0.269841E-02 
5103:          FCTCC3(11)=-0.128355E+04 
5104:  
5105:          FCTCD1(12)= 0.288531E+03 
5106:          FCTCD2(12)=-0.222335E+01 
5107:          FCTCC0(12)= 0.173162E+03 
5108:          FCTCC1(12)=-0.173110E+03 
5109:          FCTCC2(12)= 0.506917E-02 
5110:          FCTCC3(12)=-0.326051E+03 
5111:  
5112:          FCTCD1(13)=-0.153676E+04 
5113:          FCTCD2(13)=-0.115195E+01 
5114:          FCTCC0(13)= 0.392391E+02 
5115:          FCTCC1(13)=-0.392371E+02 
5116:          FCTCC2(13)= 0.242002E-02 
5117:          FCTCC3(13)=-0.860972E+03 
5118:  
5119:          FCTCD1(14)=-0.806211E+04 
5120:          FCTCD2(14)=-0.227039E+01 
5121:          FCTCC0(14)= 0.167153E+03 
5122:          FCTCC1(14)=-0.166955E+03 
5123:          FCTCC2(14)= 0.113533E-02 
5124:          FCTCC3(14)=-0.675647E+04 
5125:  
5126:          FCTCD1(15)=-0.860544E+04 
5127:          FCTCD2(15)=-0.636356E+00 
5128:          FCTCC0(15)= 0.334933E+02 
5129:          FCTCC1(15)=-0.334913E+02 
5130:          FCTCC2(15)= 0.100623E-02 
5131:          FCTCC3(15)=-0.364055E+04 
5132:  
5133:          FCTCD1(16)=-0.596334E+03 
5134:          FCTCD2(16)=-0.186455E+01 
5135:          FCTCC0(16)= 0.632048E+02 
5136:          FCTCC1(16)=-0.632028E+02 
5137:          FCTCC2(16)= 0.391227E-02 
5138:          FCTCC3(16)=-0.451094E+03 
5139:  
5140:          FCTCD1(17)=-0.666671E+03 
5141:          FCTCD2(17)=-0.201932E+01 
5142:          FCTCC0(17)= 0.179900E+03 
5143:          FCTCC1(17)=-0.179898E+03 
5144:          FCTCC2(17)= 0.295319E-02 
5145:          FCTCC3(17)=-0.108272E+04 
5146:  
5147:          FCTCD1(18)=-0.666671E+03 
5148:          FCTCD2(18)=-0.201932E+01 
5149:          FCTCC0(18)= 0.179900E+03 
5150:          FCTCC1(18)=-0.179898E+03 
5151:          FCTCC2(18)= 0.295319E-02 
5152:          FCTCC3(18)=-0.108272E+04 
5153:  
5154:          FCTCD1(19)=-0.666671E+03 
5155:          FCTCD2(19)=-0.201932E+01 
5156:          FCTCC0(19)= 0.179900E+03 
5157:          FCTCC1(19)=-0.179898E+03 
5158:          FCTCC2(19)= 0.295319E-02 
5159:          FCTCC3(19)=-0.108272E+04 
5160:  
5161:          FCTUOS    = ZERO 
5162:  
5163: C Define the parameters for calculating alpha. 
5164:  
5165:          FCTCF1(1 )=-0.148587E+03 
5166:          FCTCF2(1 )=-0.196968E+01 
5167:          FCTCE0(1 )= FCTAP0 
5168:          FCTCE1(1 )= FCTAP1 
5169:          FCTCE2(1 )= FCTAP2 
5170:          FCTCE3(1 )= FCTAP3 
5171:  
5172:          FCTCF1(2 )= 0.148938E+03 
5173:          FCTCF2(2 )=-0.132070E+01 
5174:          FCTCE0(2 )= FCTAP0 
5175:          FCTCE1(2 )= FCTAP1 
5176:          FCTCE2(2 )= FCTAP2 
5177:          FCTCE3(2 )= FCTAP3 
5178:  
5179:          FCTCF1(3 )= 0.148938E+03 
5180:          FCTCF2(3 )=-0.132070E+01 
5181:          FCTCE0(3 )= FCTAP0 
5182:          FCTCE1(3 )= FCTAP1 
5183:          FCTCE2(3 )= FCTAP2 
5184:          FCTCE3(3 )= FCTAP3 
5185:  
5186:          FCTCF1(4 )= 0.148938E+03 
5187:          FCTCF2(4 )=-0.132070E+01 
5188:          FCTCE0(4 )= FCTAP0 
5189:          FCTCE1(4 )= FCTAP1 
5190:          FCTCE2(4 )= FCTAP2 
5191:          FCTCE3(4 )= FCTAP3 
5192:  
5193:          FCTCF1(5 )=-0.305104E+03 
5194:          FCTCF2(5 )=-0.111371E+01 
5195:          FCTCE0(5 )= FCTAP0 
5196:          FCTCE1(5 )= FCTAP1 
5197:          FCTCE2(5 )= FCTAP2 
5198:          FCTCE3(5 )= FCTAP3 
5199:  
5200:          FCTCF1(6 )=-0.221576E+03 
5201:          FCTCF2(6 )=-0.138737E+01 
5202:          FCTCE0(6 )= FCTAP0 
5203:          FCTCE1(6 )= FCTAP1 
5204:          FCTCE2(6 )= FCTAP2 
5205:          FCTCE3(6 )= FCTAP3 
5206:  
5207:          FCTCF1(7 )= 0.369364E+02 
5208:          FCTCF2(7 )=-0.498136E+00 
5209:          FCTCE0(7 )= FCTAP0 
5210:          FCTCE1(7 )= FCTAP1 
5211:          FCTCE2(7 )= FCTAP2 
5212:          FCTCE3(7 )= FCTAP3 
5213:  
5214:          FCTCF1(8 )=-0.341674E+03 
5215:          FCTCF2(8 )=-0.883105E+00 
5216:          FCTCE0(8 )= FCTAP0 
5217:          FCTCE1(8 )= FCTAP1 
5218:          FCTCE2(8 )= FCTAP2 
5219:          FCTCE3(8 )= FCTAP3 
5220:  
5221:          FCTCF1(9 )=-0.221713E+03 
5222:          FCTCF2(9 )=-0.836988E+00 
5223:          FCTCE0(9 )= FCTAP0 
5224:          FCTCE1(9 )= FCTAP1 
5225:          FCTCE2(9 )= FCTAP2 
5226:          FCTCE3(9 )= FCTAP3 
5227:  
5228:          FCTCF1(10)= 0.865806E+01 
5229:          FCTCF2(10)=-0.108666E+01 
5230:          FCTCE0(10)= FCTAP0 
5231:          FCTCE1(10)= FCTAP1 
5232:          FCTCE2(10)= FCTAP2 
5233:          FCTCE3(10)= FCTAP3 
5234:  
5235:          FCTCF1(11)=-0.459976E+03 
5236:          FCTCF2(11)=-0.523950E+00 
5237:          FCTCE0(11)= FCTAP0 
5238:          FCTCE1(11)= FCTAP1 
5239:          FCTCE2(11)= FCTAP2 
5240:          FCTCE3(11)= FCTAP3 
5241:  
5242:          FCTCF1(12)= 0.503292E+03 
5243:          FCTCF2(12)=-0.107570E+01 
5244:          FCTCE0(12)= FCTAP0 
5245:          FCTCE1(12)= FCTAP1 
5246:          FCTCE2(12)= FCTAP2 
5247:          FCTCE3(12)= FCTAP3 
5248:  
5249:          FCTCF1(13)=-0.114883E+03 
5250:          FCTCF2(13)=-0.964277E+00 
5251:          FCTCE0(13)= FCTAP0 
5252:          FCTCE1(13)= FCTAP1 
5253:          FCTCE2(13)= FCTAP2 
5254:          FCTCE3(13)= FCTAP3 
5255:  
5256:          FCTCF1(14)=-0.258760E+01 
5257:          FCTCF2(14)=-0.665425E+00 
5258:          FCTCE0(14)= FCTAP0 
5259:          FCTCE1(14)= FCTAP1 
5260:          FCTCE2(14)= FCTAP2 
5261:          FCTCE3(14)= FCTAP3 
5262:  
5263:          FCTCF1(15)=-0.562214E+02 
5264:          FCTCF2(15)=-0.844556E+00 
5265:          FCTCE0(15)= FCTAP0 
5266:          FCTCE1(15)= FCTAP1 
5267:          FCTCE2(15)= FCTAP2 
5268:          FCTCE3(15)= FCTAP3 
5269:  
5270:          FCTCF1(16)=-0.874508E+02 
5271:          FCTCF2(16)=-0.806689E+00 
5272:          FCTCE0(16)= FCTAP0 
5273:          FCTCE1(16)= FCTAP1 
5274:          FCTCE2(16)= FCTAP2 
5275:          FCTCE3(16)= FCTAP3 
5276:  
5277:          FCTCF1(17)= 0.715275E+03 
5278:          FCTCF2(17)=-0.127219E+01 
5279:          FCTCE0(17)= FCTAP0 
5280:          FCTCE1(17)= FCTAP1 
5281:          FCTCE2(17)= FCTAP2 
5282:          FCTCE3(17)= FCTAP3 
5283:  
5284:          FCTCF1(18)= 0.715275E+03 
5285:          FCTCF2(18)=-0.127219E+01 
5286:          FCTCE0(18)= FCTAP0 
5287:          FCTCE1(18)= FCTAP1 
5288:          FCTCE2(18)= FCTAP2 
5289:          FCTCE3(18)= FCTAP3 
5290:  
5291:          FCTCF1(19)= 0.715275E+03 
5292:          FCTCF2(19)=-0.127219E+01 
5293:          FCTCE0(19)= FCTAP0 
5294:          FCTCE1(19)= FCTAP1 
5295:          FCTCE2(19)= FCTAP2 
5296:          FCTCE3(19)= FCTAP3 
5297:  
5298:          FCTVOS    = ZERO 
5299:  
5300: C Define the parameters for calculating beta. 
5301:  
5302:          FCTCH1(1 )=-0.148587E+03 
5303:          FCTCH2(1 )=-0.196968E+01 
5304:          FCTCG0(1 )= FCTBT0 
5305:          FCTCG1(1 )= FCTBT1 
5306:          FCTCG2(1 )= FCTBT2 
5307:          FCTCG3(1 )= FCTBT3 
5308:  
5309:          FCTCH1(2 )= 0.148938E+03 
5310:          FCTCH2(2 )=-0.132070E+01 
5311:          FCTCG0(2 )= FCTBT0 
5312:          FCTCG1(2 )= FCTBT1 
5313:          FCTCG2(2 )= FCTBT2 
5314:          FCTCG3(2 )= FCTBT3 
5315:  
5316:          FCTCH1(3 )= 0.148938E+03 
5317:          FCTCH2(3 )=-0.132070E+01 
5318:          FCTCG0(3 )= FCTBT0 
5319:          FCTCG1(3 )= FCTBT1 
5320:          FCTCG2(3 )= FCTBT2 
5321:          FCTCG3(3 )= FCTBT3 
5322:  
5323:          FCTCH1(4 )= 0.148938E+03 
5324:          FCTCH2(4 )=-0.132070E+01 
5325:          FCTCG0(4 )= FCTBT0 
5326:          FCTCG1(4 )= FCTBT1 
5327:          FCTCG2(4 )= FCTBT2 
5328:          FCTCG3(4 )= FCTBT3 
5329:  
5330:          FCTCH1(5 )=-0.305104E+03 
5331:          FCTCH2(5 )=-0.111371E+01 
5332:          FCTCG0(5 )= FCTBT0 
5333:          FCTCG1(5 )= FCTBT1 
5334:          FCTCG2(5 )= FCTBT2 
5335:          FCTCG3(5 )= FCTBT3 
5336:  
5337:          FCTCH1(6 )=-0.221576E+03 
5338:          FCTCH2(6 )=-0.138737E+01 
5339:          FCTCG0(6 )= FCTBT0 
5340:          FCTCG1(6 )= FCTBT1 
5341:          FCTCG2(6 )= FCTBT2 
5342:          FCTCG3(6 )= FCTBT3 
5343:  
5344:          FCTCH1(7 )= 0.369364E+02 
5345:          FCTCH2(7 )=-0.498136E+00 
5346:          FCTCG0(7 )= FCTBT0 
5347:          FCTCG1(7 )= FCTBT1 
5348:          FCTCG2(7 )= FCTBT2 
5349:          FCTCG3(7 )= FCTBT3 
5350:  
5351:          FCTCH1(8 )=-0.341674E+03 
5352:          FCTCH2(8 )=-0.883105E+00 
5353:          FCTCG0(8 )= FCTBT0 
5354:          FCTCG1(8 )= FCTBT1 
5355:          FCTCG2(8 )= FCTBT2 
5356:          FCTCG3(8 )= FCTBT3 
5357:  
5358:          FCTCH1(9 )=-0.221713E+03 
5359:          FCTCH2(9 )=-0.836988E+00 
5360:          FCTCG0(9 )= FCTBT0 
5361:          FCTCG1(9 )= FCTBT1 
5362:          FCTCG2(9 )= FCTBT2 
5363:          FCTCG3(9 )= FCTBT3 
5364:  
5365:          FCTCH1(10)= 0.865806E+01 
5366:          FCTCH2(10)=-0.108666E+01 
5367:          FCTCG0(10)= FCTBT0 
5368:          FCTCG1(10)= FCTBT1 
5369:          FCTCG2(10)= FCTBT2 
5370:          FCTCG3(10)= FCTBT3 
5371:  
5372:          FCTCH1(11)=-0.459976E+03 
5373:          FCTCH2(11)=-0.523950E+00 
5374:          FCTCG0(11)= FCTBT0 
5375:          FCTCG1(11)= FCTBT1 
5376:          FCTCG2(11)= FCTBT2 
5377:          FCTCG3(11)= FCTBT3 
5378:  
5379:          FCTCH1(12)= 0.503292E+03 
5380:          FCTCH2(12)=-0.107570E+01 
5381:          FCTCG0(12)= FCTBT0 
5382:          FCTCG1(12)= FCTBT1 
5383:          FCTCG2(12)= FCTBT2 
5384:          FCTCG3(12)= FCTBT3 
5385:  
5386:          FCTCH1(13)=-0.114883E+03 
5387:          FCTCH2(13)=-0.964277E+00 
5388:          FCTCG0(13)= FCTBT0 
5389:          FCTCG1(13)= FCTBT1 
5390:          FCTCG2(13)= FCTBT2 
5391:          FCTCG3(13)= FCTBT3 
5392:  
5393:          FCTCH1(14)=-0.258760E+01 
5394:          FCTCH2(14)=-0.665425E+00 
5395:          FCTCG0(14)= FCTBT0 
5396:          FCTCG1(14)= FCTBT1 
5397:          FCTCG2(14)= FCTBT2 
5398:          FCTCG3(14)= FCTBT3 
5399:  
5400:          FCTCH1(15)=-0.562214E+02 
5401:          FCTCH2(15)=-0.844556E+00 
5402:          FCTCG0(15)= FCTBT0 
5403:          FCTCG1(15)= FCTBT1 
5404:          FCTCG2(15)= FCTBT2 
5405:          FCTCG3(15)= FCTBT3 
5406:  
5407:          FCTCH1(16)=-0.874508E+02 
5408:          FCTCH2(16)=-0.806689E+00 
5409:          FCTCG0(16)= FCTBT0 
5410:          FCTCG1(16)= FCTBT1 
5411:          FCTCG2(16)= FCTBT2 
5412:          FCTCG3(16)= FCTBT3 
5413:  
5414:          FCTCH1(17)= 0.715275E+03 
5415:          FCTCH2(17)=-0.127219E+01 
5416:          FCTCG0(17)= FCTBT0 
5417:          FCTCG1(17)= FCTBT1 
5418:          FCTCG2(17)= FCTBT2 
5419:          FCTCG3(17)= FCTBT3 
5420:  
5421:          FCTCH1(18)= 0.715275E+03 
5422:          FCTCH2(18)=-0.127219E+01 
5423:          FCTCG0(18)= FCTBT0 
5424:          FCTCG1(18)= FCTBT1 
5425:          FCTCG2(18)= FCTBT2 
5426:          FCTCG3(18)= FCTBT3 
5427:  
5428:          FCTCH1(19)= 0.715275E+03 
5429:          FCTCH2(19)=-0.127219E+01 
5430:          FCTCG0(19)= FCTBT0 
5431:          FCTCG1(19)= FCTBT1 
5432:          FCTCG2(19)= FCTBT2 
5433:          FCTCG3(19)= FCTBT3 
5434:  
5435:          FCTWOS    = ZERO 
5436:  
5437: C Define the initial value for the measure of symmetry. 
5438:  
5439:          FCTBIN    = ZERO 
5440:  
5441: C Define the factor for the exponential function in the Generalized Born 
5442: C formula. 
5443:  
5444:          FCTKPS    = FOUR 
5445:  
5446: C Define the quenching factors for the atomic solvation energies. They 
5447: C affect both atomic solvation and interaction energies. 
5448:  
5449:          FCTQUN(1 )= ONE 
5450:          FCTQUN(2 )= ONE 
5451:          FCTQUN(3 )= ONE 
5452:          FCTQUN(4 )= ONE 
5453:          FCTQUN(5 )= ONE 
5454:          FCTQUN(6 )= ONE 
5455:          FCTQUN(7 )= ONE 
5456:          FCTQUN(8 )= ONE 
5457:          FCTQUN(9 )= ONE 
5458:          FCTQUN(10)= ONE 
5459:          FCTQUN(11)= ONE 
5460:          FCTQUN(12)= ONE 
5461:          FCTQUN(13)= ONE 
5462:          FCTQUN(14)= ONE 
5463:          FCTQUN(15)= ONE 
5464:          FCTQUN(16)= ONE 
5465:          FCTQUN(17)= ONE 
5466:          FCTQUN(18)= ONE 
5467:          FCTQUN(19)= ONE 
5468:  
5469: C Define the scaling factors for the charges and for the FCTNPS factors. 
5470: C They only affect atomic solvation energies and the nonpolar 
5471: C contributions that are proportional to the unit charge atomic 
5472: C solvation energies. They do not affect interaction energies. 
5473:  
5474:          FCTSCF(1 )= ONE 
5475:          FCTSCF(2 )= ONE 
5476:          FCTSCF(3 )= ONE 
5477:          FCTSCF(4 )= ONE 
5478:          FCTSCF(5 )= ONE 
5479:          FCTSCF(6 )= ONE 
5480:          FCTSCF(7 )= ONE 
5481:          FCTSCF(8 )= ONE 
5482:          FCTSCF(9 )= ONE 
5483:          FCTSCF(10)= ONE 
5484:          FCTSCF(11)= ONE 
5485:          FCTSCF(12)= ONE 
5486:          FCTSCF(13)= ONE 
5487:          FCTSCF(14)= ONE 
5488:          FCTSCF(15)= ONE 
5489:          FCTSCF(16)= ONE 
5490:          FCTSCF(17)= ONE 
5491:          FCTSCF(18)= ONE 
5492:          FCTSCF(19)= ONE 
5493:  
5494: C Define the factors to obtain the nonpolar contributions that are 
5495: C proportional to the unit charge atomic solvation energies. 
5496:  
5497:          FCTNPS(1 )= ZERO 
5498:          FCTNPS(2 )= ZERO 
5499:          FCTNPS(3 )= ZERO 
5500:          FCTNPS(4 )= ZERO 
5501:          FCTNPS(5 )= ZERO 
5502:          FCTNPS(6 )= ZERO 
5503:          FCTNPS(7 )= ZERO 
5504:          FCTNPS(8 )= ZERO 
5505:          FCTNPS(9 )= ZERO 
5506:          FCTNPS(10)= ZERO 
5507:          FCTNPS(11)= ZERO 
5508:          FCTNPS(12)= ZERO 
5509:          FCTNPS(13)= ZERO 
5510:          FCTNPS(14)= ZERO 
5511:          FCTNPS(15)= ZERO 
5512:          FCTNPS(16)= ZERO 
5513:          FCTNPS(17)= ZERO 
5514:          FCTNPS(18)= ZERO 
5515:          FCTNPS(19)= ZERO 
5516:  
5517:       ENDIF 
5518:  
5519:       IF ((FCTCPS .EQ. 22    )  .AND. 
5520:      &    (FCTEPS .EQ. TWO   )  .AND. 
5521:      &    (FCTFPS .EQ. 1     )) THEN 
5522:  
5523: C This FACTS parameter set was derived with no boundary conditions. 
5524:  
5525:          FCTCHO    = .TRUE. 
5526:  
5527: C Define some constants related to the dielectric medium. 
5528:  
5529:          FCTIEM    = FCTCEL/TWO 
5530:          FCTIES    = FCTCEL/78.5D0 
5531:          FCTTAU    = FCTIEM-FCTIES 
5532:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
5533:  
5534: C Define the number of native van der Waals radii. 
5535:  
5536:          FCTNNV    = 19 
5537:  
5538: C Define the number of actual van der Waals radii. 
5539:  
5540:          FCTNAV    = 19 
5541:  
5542: C Define the native van der Waals radii. 
5543:  
5544:          FCTRVW(1 )= 0.2245D0 
5545:          FCTRVW(2 )= 0.4500D0 
5546:          FCTRVW(3 )= 0.7000D0 
5547:          FCTRVW(4 )= 0.9000D0 
5548:          FCTRVW(5 )= 1.3200D0 
5549:          FCTRVW(6 )= 1.3582D0 
5550:          FCTRVW(7 )= 1.4680D0 
5551:          FCTRVW(8 )= 1.7000D0 
5552:          FCTRVW(9 )= 1.7700D0 
5553:          FCTRVW(10)= 1.8000D0 
5554:          FCTRVW(11)= 1.8500D0 
5555:          FCTRVW(12)= 1.9750D0 
5556:          FCTRVW(13)= 1.9924D0 
5557:          FCTRVW(14)= 2.0000D0 
5558:          FCTRVW(15)= 2.0600D0 
5559:          FCTRVW(16)= 2.1750D0 
5560:          FCTRVW(17)= 2.2350D0 
5561:          FCTRVW(18)= 2.2750D0 
5562:          FCTRVW(19)= 2.3650D0 
5563:  
5564: C Define the cutoffs for the FACTS self and interaction energy pair 
5565: C lists. 
5566:  
5567:          FCTCSL    =12.0D0 
5568:          FCTCIL    =14.0D0 
5569:  
5570: C Define the cutoffs for the FACTS self and interaction energy 
5571: C calculations. 
5572:  
5573:          FCTCSC(1 )= 0.706222E+01 
5574:          FCTCSC(2 )= 0.767241E+01 
5575:          FCTCSC(3 )= 0.600000E+01 
5576:          FCTCSC(4 )= 0.670164E+01 
5577:          FCTCSC(5 )= 0.824601E+01 
5578:          FCTCSC(6 )= 0.829473E+01 
5579:          FCTCSC(7 )= 0.749910E+01 
5580:          FCTCSC(8 )= 0.845824E+01 
5581:          FCTCSC(9 )= 0.844679E+01 
5582:          FCTCSC(10)= 0.835774E+01 
5583:          FCTCSC(11)= 0.844792E+01 
5584:          FCTCSC(12)= 0.909484E+01 
5585:          FCTCSC(13)= 0.926378E+01 
5586:          FCTCSC(14)= 0.878606E+01 
5587:          FCTCSC(15)= 0.999486E+01 
5588:          FCTCSC(16)= 0.890732E+01 
5589:          FCTCSC(17)= 0.600000E+01 
5590:          FCTCSC(18)= 0.971278E+01 
5591:          FCTCSC(19)= 0.600000E+01 
5592:          FCTCIC    =12.0D0 
5593:  
5594: C Define the parameters for calculating atomic solvation energies. 
5595:  
5596:          FCTCB1(1 )=-0.275971E+03 
5597:          FCTCB2(1 )=-0.200203E+01 
5598:          FCTCA0(1 )=-0.751192E+02 
5599:          FCTCA1(1 )= 0.639494E+02 
5600:          FCTCA2(1 )= 0.474256E-02 
5601:          FCTCA3(1 )=-0.941027E+02 
5602:  
5603:          FCTCB1(2 )=-0.594710E+03 
5604:          FCTCB2(2 )=-0.213036E+01 
5605:          FCTCA0(2 )=-0.698183E+02 
5606:          FCTCA1(2 )= 0.698163E+02 
5607:          FCTCA2(2 )= 0.564903E-02 
5608:          FCTCA3(2 )=-0.131023E+03 
5609:  
5610:          FCTCB1(3 )=-0.594710E+03 
5611:          FCTCB2(3 )=-0.213036E+01 
5612:          FCTCA0(3 )=-0.698183E+02 
5613:          FCTCA1(3 )= 0.698163E+02 
5614:          FCTCA2(3 )= 0.564903E-02 
5615:          FCTCA3(3 )=-0.131023E+03 
5616:  
5617:          FCTCB1(4 )=-0.594710E+03 
5618:          FCTCB2(4 )=-0.213036E+01 
5619:          FCTCA0(4 )=-0.698183E+02 
5620:          FCTCA1(4 )= 0.698163E+02 
5621:          FCTCA2(4 )= 0.564903E-02 
5622:          FCTCA3(4 )=-0.131023E+03 
5623:  
5624:          FCTCB1(5 )=-0.973434E+02 
5625:          FCTCB2(5 )=-0.130741E+01 
5626:          FCTCA0(5 )=-0.583544E+02 
5627:          FCTCA1(5 )= 0.560110E+02 
5628:          FCTCA2(5 )= 0.291132E-02 
5629:          FCTCA3(5 )= 0.357392E+03 
5630:  
5631:          FCTCB1(6 )=-0.191605E+03 
5632:          FCTCB2(6 )=-0.130440E+01 
5633:          FCTCA0(6 )=-0.563360E+02 
5634:          FCTCA1(6 )= 0.537271E+02 
5635:          FCTCA2(6 )= 0.290104E-02 
5636:          FCTCA3(6 )= 0.407967E+03 
5637:  
5638:          FCTCB1(7 )= 0.511143E+02 
5639:          FCTCB2(7 )=-0.881330E+00 
5640:          FCTCA0(7 )=-0.573999E+02 
5641:          FCTCA1(7 )= 0.573979E+02 
5642:          FCTCA2(7 )= 0.408694E-02 
5643:          FCTCA3(7 )= 0.467901E+03 
5644:  
5645:          FCTCB1(8 )=-0.258749E+03 
5646:          FCTCB2(8 )=-0.943276E+00 
5647:          FCTCA0(8 )=-0.481314E+02 
5648:          FCTCA1(8 )= 0.481294E+02 
5649:          FCTCA2(8 )= 0.227343E-02 
5650:          FCTCA3(8 )= 0.635441E+03 
5651:  
5652:          FCTCB1(9 )=-0.266819E+03 
5653:          FCTCB2(9 )=-0.799658E+00 
5654:          FCTCA0(9 )=-0.469718E+02 
5655:          FCTCA1(9 )= 0.469698E+02 
5656:          FCTCA2(9 )= 0.222330E-02 
5657:          FCTCA3(9 )= 0.658810E+03 
5658:  
5659:          FCTCB1(10)= 0.120345E+03 
5660:          FCTCB2(10)=-0.115631E+01 
5661:          FCTCA0(10)=-0.873248E+02 
5662:          FCTCA1(10)= 0.873228E+02 
5663:          FCTCA2(10)= 0.158464E-02 
5664:          FCTCA3(10)=-0.276594E+02 
5665:  
5666:          FCTCB1(11)=-0.392515E+03 
5667:          FCTCB2(11)=-0.546163E+00 
5668:          FCTCA0(11)=-0.449052E+02 
5669:          FCTCA1(11)= 0.449032E+02 
5670:          FCTCA2(11)= 0.203911E-02 
5671:          FCTCA3(11)= 0.722270E+03 
5672:  
5673:          FCTCB1(12)= 0.132837E+04 
5674:          FCTCB2(12)=-0.192121E+01 
5675:          FCTCA0(12)=-0.485138E+02 
5676:          FCTCA1(12)= 0.413458E+02 
5677:          FCTCA2(12)= 0.371541E-02 
5678:          FCTCA3(12)= 0.759156E+03 
5679:  
5680:          FCTCB1(13)= 0.397096E+01 
5681:          FCTCB2(13)=-0.107441E+01 
5682:          FCTCA0(13)=-0.430531E+02 
5683:          FCTCA1(13)= 0.430511E+02 
5684:          FCTCA2(13)= 0.173781E-02 
5685:          FCTCA3(13)= 0.879763E+03 
5686:  
5687:          FCTCB1(14)= 0.431695E+02 
5688:          FCTCB2(14)=-0.675727E+00 
5689:          FCTCA0(14)=-0.410881E+02 
5690:          FCTCA1(14)= 0.410861E+02 
5691:          FCTCA2(14)= 0.197575E-02 
5692:          FCTCA3(14)= 0.925435E+03 
5693:  
5694:          FCTCB1(15)=-0.588491E+02 
5695:          FCTCB2(15)=-0.853175E+00 
5696:          FCTCA0(15)=-0.378659E+02 
5697:          FCTCA1(15)= 0.378639E+02 
5698:          FCTCA2(15)= 0.179140E-02 
5699:          FCTCA3(15)= 0.132067E+04 
5700:  
5701:          FCTCB1(16)= 0.112463E+03 
5702:          FCTCB2(16)=-0.964233E+00 
5703:          FCTCA0(16)=-0.382644E+02 
5704:          FCTCA1(16)= 0.382624E+02 
5705:          FCTCA2(16)= 0.216212E-02 
5706:          FCTCA3(16)= 0.951170E+03 
5707:  
5708:          FCTCB1(17)= 0.130860E+04 
5709:          FCTCB2(17)=-0.177237E+01 
5710:          FCTCA0(17)=-0.661707E+02 
5711:          FCTCA1(17)= 0.661687E+02 
5712:          FCTCA2(17)= 0.118151E-02 
5713:          FCTCA3(17)= 0.406434E+03 
5714:  
5715:          FCTCB1(18)= 0.130860E+04 
5716:          FCTCB2(18)=-0.177237E+01 
5717:          FCTCA0(18)=-0.661707E+02 
5718:          FCTCA1(18)= 0.661687E+02 
5719:          FCTCA2(18)= 0.118151E-02 
5720:          FCTCA3(18)= 0.406434E+03 
5721:  
5722:          FCTCB1(19)= 0.130860E+04 
5723:          FCTCB2(19)=-0.177237E+01 
5724:          FCTCA0(19)=-0.661707E+02 
5725:          FCTCA1(19)= 0.661687E+02 
5726:          FCTCA2(19)= 0.118151E-02 
5727:          FCTCA3(19)= 0.406434E+03 
5728:  
5729:          FCTQOS    = ZERO 
5730:  
5731: C Define the parameters for calculating atomic solvent accessible 
5732: C surface areas. 
5733:  
5734:          FCTCD1(1 )=-0.597528E+04 
5735:          FCTCD2(1 )=-0.132626E+02 
5736:          FCTCC0(1 )= 0.331627E+02 
5737:          FCTCC1(1 )=-0.331607E+02 
5738:          FCTCC2(1 )= 0.268702E-01 
5739:          FCTCC3(1 )=-0.945280E+04 
5740:  
5741:          FCTCD1(2 )=-0.952570E+04 
5742:          FCTCD2(2 )=-0.892289E+01 
5743:          FCTCC0(2 )= 0.875739E+01 
5744:          FCTCC1(2 )=-0.875539E+01 
5745:          FCTCC2(2 )= 0.150488E-02 
5746:          FCTCC3(2 )=-0.731427E+04 
5747:  
5748:          FCTCD1(3 )=-0.952570E+04 
5749:          FCTCD2(3 )=-0.892289E+01 
5750:          FCTCC0(3 )= 0.875739E+01 
5751:          FCTCC1(3 )=-0.875539E+01 
5752:          FCTCC2(3 )= 0.150488E-02 
5753:          FCTCC3(3 )=-0.731427E+04 
5754:  
5755:          FCTCD1(4 )=-0.952570E+04 
5756:          FCTCD2(4 )=-0.892289E+01 
5757:          FCTCC0(4 )= 0.875739E+01 
5758:          FCTCC1(4 )=-0.875539E+01 
5759:          FCTCC2(4 )= 0.150488E-02 
5760:          FCTCC3(4 )=-0.731427E+04 
5761:  
5762:          FCTCD1(5 )=-0.192740E+03 
5763:          FCTCD2(5 )=-0.176685E+01 
5764:          FCTCC0(5 )= 0.100230E+03 
5765:          FCTCC1(5 )=-0.100228E+03 
5766:          FCTCC2(5 )= 0.630842E-02 
5767:          FCTCC3(5 )=-0.578701E+03 
5768:  
5769:          FCTCD1(6 )=-0.676447E+03 
5770:          FCTCD2(6 )=-0.222803E+01 
5771:          FCTCC0(6 )= 0.163762E+03 
5772:          FCTCC1(6 )=-0.163760E+03 
5773:          FCTCC2(6 )= 0.345894E-02 
5774:          FCTCC3(6 )=-0.133154E+04 
5775:  
5776:          FCTCD1(7 )=-0.281663E+04 
5777:          FCTCD2(7 )=-0.255432E+01 
5778:          FCTCC0(7 )= 0.492274E+02 
5779:          FCTCC1(7 )=-0.492254E+02 
5780:          FCTCC2(7 )= 0.224746E-02 
5781:          FCTCC3(7 )=-0.218549E+04 
5782:  
5783:          FCTCD1(8 )=-0.193271E+04 
5784:          FCTCD2(8 )=-0.164887E+01 
5785:          FCTCC0(8 )= 0.650194E+02 
5786:          FCTCC1(8 )=-0.650174E+02 
5787:          FCTCC2(8 )= 0.248175E-02 
5788:          FCTCC3(8 )=-0.135331E+04 
5789:  
5790:          FCTCD1(9 )=-0.311522E+04 
5791:          FCTCD2(9 )=-0.124537E+01 
5792:          FCTCC0(9 )= 0.735675E+02 
5793:          FCTCC1(9 )=-0.735655E+02 
5794:          FCTCC2(9 )= 0.169442E-02 
5795:          FCTCC3(9 )=-0.214416E+04 
5796:  
5797:          FCTCD1(10)=-0.222684E+05 
5798:          FCTCD2(10)=-0.810128E+01 
5799:          FCTCC0(10)= 0.315852E+02 
5800:          FCTCC1(10)=-0.313963E+02 
5801:          FCTCC2(10)= 0.579209E-03 
5802:          FCTCC3(10)=-0.139485E+05 
5803:  
5804:          FCTCD1(11)=-0.193136E+04 
5805:          FCTCD2(11)=-0.155601E+01 
5806:          FCTCC0(11)= 0.746558E+02 
5807:          FCTCC1(11)=-0.746538E+02 
5808:          FCTCC2(11)= 0.270264E-02 
5809:          FCTCC3(11)=-0.128202E+04 
5810:  
5811:          FCTCD1(12)= 0.288801E+03 
5812:          FCTCD2(12)=-0.229942E+01 
5813:          FCTCC0(12)= 0.174431E+03 
5814:          FCTCC1(12)=-0.174344E+03 
5815:          FCTCC2(12)= 0.455283E-02 
5816:          FCTCC3(12)=-0.404115E+03 
5817:  
5818:          FCTCD1(13)=-0.421160E+04 
5819:          FCTCD2(13)=-0.459151E+00 
5820:          FCTCC0(13)= 0.346466E+02 
5821:          FCTCC1(13)=-0.346446E+02 
5822:          FCTCC2(13)= 0.138939E-02 
5823:          FCTCC3(13)=-0.209693E+04 
5824:  
5825:          FCTCD1(14)=-0.811683E+04 
5826:          FCTCD2(14)=-0.234357E+01 
5827:          FCTCC0(14)= 0.167665E+03 
5828:          FCTCC1(14)=-0.167472E+03 
5829:          FCTCC2(14)= 0.113712E-02 
5830:          FCTCC3(14)=-0.675676E+04 
5831:  
5832:          FCTCD1(15)=-0.627618E+04 
5833:          FCTCD2(15)=-0.153047E+01 
5834:          FCTCC0(15)= 0.104380E+03 
5835:          FCTCC1(15)=-0.104378E+03 
5836:          FCTCC2(15)= 0.732719E-03 
5837:          FCTCC3(15)=-0.522811E+04 
5838:  
5839:          FCTCD1(16)=-0.178801E+05 
5840:          FCTCD2(16)=-0.310708E+01 
5841:          FCTCC0(16)= 0.172766E+03 
5842:          FCTCC1(16)=-0.172687E+03 
5843:          FCTCC2(16)= 0.348553E-03 
5844:          FCTCC3(16)=-0.151252E+05 
5845:  
5846:          FCTCD1(17)=-0.633935E+03 
5847:          FCTCD2(17)=-0.200029E+01 
5848:          FCTCC0(17)= 0.178299E+03 
5849:          FCTCC1(17)=-0.178297E+03 
5850:          FCTCC2(17)= 0.292989E-02 
5851:          FCTCC3(17)=-0.106603E+04 
5852:  
5853:          FCTCD1(18)=-0.633935E+03 
5854:          FCTCD2(18)=-0.200029E+01 
5855:          FCTCC0(18)= 0.178299E+03 
5856:          FCTCC1(18)=-0.178297E+03 
5857:          FCTCC2(18)= 0.292989E-02 
5858:          FCTCC3(18)=-0.106603E+04 
5859:  
5860:          FCTCD1(19)=-0.633935E+03 
5861:          FCTCD2(19)=-0.200029E+01 
5862:          FCTCC0(19)= 0.178299E+03 
5863:          FCTCC1(19)=-0.178297E+03 
5864:          FCTCC2(19)= 0.292989E-02 
5865:          FCTCC3(19)=-0.106603E+04 
5866:  
5867:          FCTUOS    = ZERO 
5868:  
5869: C Define the parameters for calculating alpha. 
5870:  
5871:          FCTCF1(1 )=-0.275971E+03 
5872:          FCTCF2(1 )=-0.200203E+01 
5873:          FCTCE0(1 )= FCTAP0 
5874:          FCTCE1(1 )= FCTAP1 
5875:          FCTCE2(1 )= FCTAP2 
5876:          FCTCE3(1 )= FCTAP3 
5877:  
5878:          FCTCF1(2 )=-0.594710E+03 
5879:          FCTCF2(2 )=-0.213036E+01 
5880:          FCTCE0(2 )= FCTAP0 
5881:          FCTCE1(2 )= FCTAP1 
5882:          FCTCE2(2 )= FCTAP2 
5883:          FCTCE3(2 )= FCTAP3 
5884:  
5885:          FCTCF1(3 )=-0.594710E+03 
5886:          FCTCF2(3 )=-0.213036E+01 
5887:          FCTCE0(3 )= FCTAP0 
5888:          FCTCE1(3 )= FCTAP1 
5889:          FCTCE2(3 )= FCTAP2 
5890:          FCTCE3(3 )= FCTAP3 
5891:  
5892:          FCTCF1(4 )=-0.594710E+03 
5893:          FCTCF2(4 )=-0.213036E+01 
5894:          FCTCE0(4 )= FCTAP0 
5895:          FCTCE1(4 )= FCTAP1 
5896:          FCTCE2(4 )= FCTAP2 
5897:          FCTCE3(4 )= FCTAP3 
5898:  
5899:          FCTCF1(5 )=-0.973434E+02 
5900:          FCTCF2(5 )=-0.130741E+01 
5901:          FCTCE0(5 )= FCTAP0 
5902:          FCTCE1(5 )= FCTAP1 
5903:          FCTCE2(5 )= FCTAP2 
5904:          FCTCE3(5 )= FCTAP3 
5905:  
5906:          FCTCF1(6 )=-0.191605E+03 
5907:          FCTCF2(6 )=-0.130440E+01 
5908:          FCTCE0(6 )= FCTAP0 
5909:          FCTCE1(6 )= FCTAP1 
5910:          FCTCE2(6 )= FCTAP2 
5911:          FCTCE3(6 )= FCTAP3 
5912:  
5913:          FCTCF1(7 )= 0.511143E+02 
5914:          FCTCF2(7 )=-0.881330E+00 
5915:          FCTCE0(7 )= FCTAP0 
5916:          FCTCE1(7 )= FCTAP1 
5917:          FCTCE2(7 )= FCTAP2 
5918:          FCTCE3(7 )= FCTAP3 
5919:  
5920:          FCTCF1(8 )=-0.258749E+03 
5921:          FCTCF2(8 )=-0.943276E+00 
5922:          FCTCE0(8 )= FCTAP0 
5923:          FCTCE1(8 )= FCTAP1 
5924:          FCTCE2(8 )= FCTAP2 
5925:          FCTCE3(8 )= FCTAP3 
5926:  
5927:          FCTCF1(9 )=-0.266819E+03 
5928:          FCTCF2(9 )=-0.799658E+00 
5929:          FCTCE0(9 )= FCTAP0 
5930:          FCTCE1(9 )= FCTAP1 
5931:          FCTCE2(9 )= FCTAP2 
5932:          FCTCE3(9 )= FCTAP3 
5933:  
5934:          FCTCF1(10)= 0.120345E+03 
5935:          FCTCF2(10)=-0.115631E+01 
5936:          FCTCE0(10)= FCTAP0 
5937:          FCTCE1(10)= FCTAP1 
5938:          FCTCE2(10)= FCTAP2 
5939:          FCTCE3(10)= FCTAP3 
5940:  
5941:          FCTCF1(11)=-0.392515E+03 
5942:          FCTCF2(11)=-0.546163E+00 
5943:          FCTCE0(11)= FCTAP0 
5944:          FCTCE1(11)= FCTAP1 
5945:          FCTCE2(11)= FCTAP2 
5946:          FCTCE3(11)= FCTAP3 
5947:  
5948:          FCTCF1(12)= 0.132837E+04 
5949:          FCTCF2(12)=-0.192121E+01 
5950:          FCTCE0(12)= FCTAP0 
5951:          FCTCE1(12)= FCTAP1 
5952:          FCTCE2(12)= FCTAP2 
5953:          FCTCE3(12)= FCTAP3 
5954:  
5955:          FCTCF1(13)= 0.397096E+01 
5956:          FCTCF2(13)=-0.107441E+01 
5957:          FCTCE0(13)= FCTAP0 
5958:          FCTCE1(13)= FCTAP1 
5959:          FCTCE2(13)= FCTAP2 
5960:          FCTCE3(13)= FCTAP3 
5961:  
5962:          FCTCF1(14)= 0.431695E+02 
5963:          FCTCF2(14)=-0.675727E+00 
5964:          FCTCE0(14)= FCTAP0 
5965:          FCTCE1(14)= FCTAP1 
5966:          FCTCE2(14)= FCTAP2 
5967:          FCTCE3(14)= FCTAP3 
5968:  
5969:          FCTCF1(15)=-0.588491E+02 
5970:          FCTCF2(15)=-0.853175E+00 
5971:          FCTCE0(15)= FCTAP0 
5972:          FCTCE1(15)= FCTAP1 
5973:          FCTCE2(15)= FCTAP2 
5974:          FCTCE3(15)= FCTAP3 
5975:  
5976:          FCTCF1(16)= 0.112463E+03 
5977:          FCTCF2(16)=-0.964233E+00 
5978:          FCTCE0(16)= FCTAP0 
5979:          FCTCE1(16)= FCTAP1 
5980:          FCTCE2(16)= FCTAP2 
5981:          FCTCE3(16)= FCTAP3 
5982:  
5983:          FCTCF1(17)= 0.130860E+04 
5984:          FCTCF2(17)=-0.177237E+01 
5985:          FCTCE0(17)= FCTAP0 
5986:          FCTCE1(17)= FCTAP1 
5987:          FCTCE2(17)= FCTAP2 
5988:          FCTCE3(17)= FCTAP3 
5989:  
5990:          FCTCF1(18)= 0.130860E+04 
5991:          FCTCF2(18)=-0.177237E+01 
5992:          FCTCE0(18)= FCTAP0 
5993:          FCTCE1(18)= FCTAP1 
5994:          FCTCE2(18)= FCTAP2 
5995:          FCTCE3(18)= FCTAP3 
5996:  
5997:          FCTCF1(19)= 0.130860E+04 
5998:          FCTCF2(19)=-0.177237E+01 
5999:          FCTCE0(19)= FCTAP0 
6000:          FCTCE1(19)= FCTAP1 
6001:          FCTCE2(19)= FCTAP2 
6002:          FCTCE3(19)= FCTAP3 
6003:  
6004:          FCTVOS    = ZERO 
6005:  
6006: C Define the parameters for calculating beta. 
6007:  
6008:          FCTCH1(1 )=-0.275971E+03 
6009:          FCTCH2(1 )=-0.200203E+01 
6010:          FCTCG0(1 )= FCTBT0 
6011:          FCTCG1(1 )= FCTBT1 
6012:          FCTCG2(1 )= FCTBT2 
6013:          FCTCG3(1 )= FCTBT3 
6014:  
6015:          FCTCH1(2 )=-0.594710E+03 
6016:          FCTCH2(2 )=-0.213036E+01 
6017:          FCTCG0(2 )= FCTBT0 
6018:          FCTCG1(2 )= FCTBT1 
6019:          FCTCG2(2 )= FCTBT2 
6020:          FCTCG3(2 )= FCTBT3 
6021:  
6022:          FCTCH1(3 )=-0.594710E+03 
6023:          FCTCH2(3 )=-0.213036E+01 
6024:          FCTCG0(3 )= FCTBT0 
6025:          FCTCG1(3 )= FCTBT1 
6026:          FCTCG2(3 )= FCTBT2 
6027:          FCTCG3(3 )= FCTBT3 
6028:  
6029:          FCTCH1(4 )=-0.594710E+03 
6030:          FCTCH2(4 )=-0.213036E+01 
6031:          FCTCG0(4 )= FCTBT0 
6032:          FCTCG1(4 )= FCTBT1 
6033:          FCTCG2(4 )= FCTBT2 
6034:          FCTCG3(4 )= FCTBT3 
6035:  
6036:          FCTCH1(5 )=-0.973434E+02 
6037:          FCTCH2(5 )=-0.130741E+01 
6038:          FCTCG0(5 )= FCTBT0 
6039:          FCTCG1(5 )= FCTBT1 
6040:          FCTCG2(5 )= FCTBT2 
6041:          FCTCG3(5 )= FCTBT3 
6042:  
6043:          FCTCH1(6 )=-0.191605E+03 
6044:          FCTCH2(6 )=-0.130440E+01 
6045:          FCTCG0(6 )= FCTBT0 
6046:          FCTCG1(6 )= FCTBT1 
6047:          FCTCG2(6 )= FCTBT2 
6048:          FCTCG3(6 )= FCTBT3 
6049:  
6050:          FCTCH1(7 )= 0.511143E+02 
6051:          FCTCH2(7 )=-0.881330E+00 
6052:          FCTCG0(7 )= FCTBT0 
6053:          FCTCG1(7 )= FCTBT1 
6054:          FCTCG2(7 )= FCTBT2 
6055:          FCTCG3(7 )= FCTBT3 
6056:  
6057:          FCTCH1(8 )=-0.258749E+03 
6058:          FCTCH2(8 )=-0.943276E+00 
6059:          FCTCG0(8 )= FCTBT0 
6060:          FCTCG1(8 )= FCTBT1 
6061:          FCTCG2(8 )= FCTBT2 
6062:          FCTCG3(8 )= FCTBT3 
6063:  
6064:          FCTCH1(9 )=-0.266819E+03 
6065:          FCTCH2(9 )=-0.799658E+00 
6066:          FCTCG0(9 )= FCTBT0 
6067:          FCTCG1(9 )= FCTBT1 
6068:          FCTCG2(9 )= FCTBT2 
6069:          FCTCG3(9 )= FCTBT3 
6070:  
6071:          FCTCH1(10)= 0.120345E+03 
6072:          FCTCH2(10)=-0.115631E+01 
6073:          FCTCG0(10)= FCTBT0 
6074:          FCTCG1(10)= FCTBT1 
6075:          FCTCG2(10)= FCTBT2 
6076:          FCTCG3(10)= FCTBT3 
6077:  
6078:          FCTCH1(11)=-0.392515E+03 
6079:          FCTCH2(11)=-0.546163E+00 
6080:          FCTCG0(11)= FCTBT0 
6081:          FCTCG1(11)= FCTBT1 
6082:          FCTCG2(11)= FCTBT2 
6083:          FCTCG3(11)= FCTBT3 
6084:  
6085:          FCTCH1(12)= 0.132837E+04 
6086:          FCTCH2(12)=-0.192121E+01 
6087:          FCTCG0(12)= FCTBT0 
6088:          FCTCG1(12)= FCTBT1 
6089:          FCTCG2(12)= FCTBT2 
6090:          FCTCG3(12)= FCTBT3 
6091:  
6092:          FCTCH1(13)= 0.397096E+01 
6093:          FCTCH2(13)=-0.107441E+01 
6094:          FCTCG0(13)= FCTBT0 
6095:          FCTCG1(13)= FCTBT1 
6096:          FCTCG2(13)= FCTBT2 
6097:          FCTCG3(13)= FCTBT3 
6098:  
6099:          FCTCH1(14)= 0.431695E+02 
6100:          FCTCH2(14)=-0.675727E+00 
6101:          FCTCG0(14)= FCTBT0 
6102:          FCTCG1(14)= FCTBT1 
6103:          FCTCG2(14)= FCTBT2 
6104:          FCTCG3(14)= FCTBT3 
6105:  
6106:          FCTCH1(15)=-0.588491E+02 
6107:          FCTCH2(15)=-0.853175E+00 
6108:          FCTCG0(15)= FCTBT0 
6109:          FCTCG1(15)= FCTBT1 
6110:          FCTCG2(15)= FCTBT2 
6111:          FCTCG3(15)= FCTBT3 
6112:  
6113:          FCTCH1(16)= 0.112463E+03 
6114:          FCTCH2(16)=-0.964233E+00 
6115:          FCTCG0(16)= FCTBT0 
6116:          FCTCG1(16)= FCTBT1 
6117:          FCTCG2(16)= FCTBT2 
6118:          FCTCG3(16)= FCTBT3 
6119:  
6120:          FCTCH1(17)= 0.130860E+04 
6121:          FCTCH2(17)=-0.177237E+01 
6122:          FCTCG0(17)= FCTBT0 
6123:          FCTCG1(17)= FCTBT1 
6124:          FCTCG2(17)= FCTBT2 
6125:          FCTCG3(17)= FCTBT3 
6126:  
6127:          FCTCH1(18)= 0.130860E+04 
6128:          FCTCH2(18)=-0.177237E+01 
6129:          FCTCG0(18)= FCTBT0 
6130:          FCTCG1(18)= FCTBT1 
6131:          FCTCG2(18)= FCTBT2 
6132:          FCTCG3(18)= FCTBT3 
6133:  
6134:          FCTCH1(19)= 0.130860E+04 
6135:          FCTCH2(19)=-0.177237E+01 
6136:          FCTCG0(19)= FCTBT0 
6137:          FCTCG1(19)= FCTBT1 
6138:          FCTCG2(19)= FCTBT2 
6139:          FCTCG3(19)= FCTBT3 
6140:  
6141:          FCTWOS    = ZERO 
6142:  
6143: C Define the initial value for the measure of symmetry. 
6144:  
6145:          FCTBIN    = ONE 
6146:  
6147: C Define the factor for the exponential function in the Generalized Born 
6148: C formula. 
6149:  
6150:          FCTKPS    = FOUR 
6151:  
6152: C Define the quenching factors for the atomic solvation energies. They 
6153: C affect both atomic solvation and interaction energies. 
6154:  
6155:          FCTQUN(1 )= ONE 
6156:          FCTQUN(2 )= ONE 
6157:          FCTQUN(3 )= ONE 
6158:          FCTQUN(4 )= ONE 
6159:          FCTQUN(5 )= ONE 
6160:          FCTQUN(6 )= ONE 
6161:          FCTQUN(7 )= ONE 
6162:          FCTQUN(8 )= ONE 
6163:          FCTQUN(9 )= ONE 
6164:          FCTQUN(10)= ONE 
6165:          FCTQUN(11)= ONE 
6166:          FCTQUN(12)= ONE 
6167:          FCTQUN(13)= ONE 
6168:          FCTQUN(14)= ONE 
6169:          FCTQUN(15)= ONE 
6170:          FCTQUN(16)= ONE 
6171:          FCTQUN(17)= ONE 
6172:          FCTQUN(18)= ONE 
6173:          FCTQUN(19)= ONE 
6174:  
6175: C Define the scaling factors for the charges and for the FCTNPS factors. 
6176: C They only affect atomic solvation energies and the nonpolar 
6177: C contributions that are proportional to the unit charge atomic 
6178: C solvation energies. They do not affect interaction energies. 
6179:  
6180:          FCTSCF(1 )= ONE 
6181:          FCTSCF(2 )= ONE 
6182:          FCTSCF(3 )= ONE 
6183:          FCTSCF(4 )= ONE 
6184:          FCTSCF(5 )= ONE 
6185:          FCTSCF(6 )= ONE 
6186:          FCTSCF(7 )= ONE 
6187:          FCTSCF(8 )= ONE 
6188:          FCTSCF(9 )= ONE 
6189:          FCTSCF(10)= ONE 
6190:          FCTSCF(11)= ONE 
6191:          FCTSCF(12)= ONE 
6192:          FCTSCF(13)= ONE 
6193:          FCTSCF(14)= ONE 
6194:          FCTSCF(15)= ONE 
6195:          FCTSCF(16)= ONE 
6196:          FCTSCF(17)= ONE 
6197:          FCTSCF(18)= ONE 
6198:          FCTSCF(19)= ONE 
6199:  
6200: C Define the factors to obtain the nonpolar contributions that are 
6201: C proportional to the unit charge atomic solvation energies. 
6202:  
6203:          FCTNPS(1 )= ZERO 
6204:          FCTNPS(2 )= ZERO 
6205:          FCTNPS(3 )= ZERO 
6206:          FCTNPS(4 )= ZERO 
6207:          FCTNPS(5 )= ZERO 
6208:          FCTNPS(6 )= ZERO 
6209:          FCTNPS(7 )= ZERO 
6210:          FCTNPS(8 )= ZERO 
6211:          FCTNPS(9 )= ZERO 
6212:          FCTNPS(10)= ZERO 
6213:          FCTNPS(11)= ZERO 
6214:          FCTNPS(12)= ZERO 
6215:          FCTNPS(13)= ZERO 
6216:          FCTNPS(14)= ZERO 
6217:          FCTNPS(15)= ZERO 
6218:          FCTNPS(16)= ZERO 
6219:          FCTNPS(17)= ZERO 
6220:          FCTNPS(18)= ZERO 
6221:          FCTNPS(19)= ZERO 
6222:  
6223:       ENDIF 
6224:  
6225:       IF ((FCTCPS .EQ. 22    )  .AND. 
6226:      &    (FCTEPS .EQ. TWO   )  .AND. 
6227:      &    (FCTFPS .EQ. 2     )) THEN 
6228:  
6229: C This FACTS parameter set was derived with boundary conditions at 
6230: C negative and positive infinity. 
6231:  
6232:          FCTCHO    = .TRUE. 
6233:  
6234: C Define some constants related to the dielectric medium. 
6235:  
6236:          FCTIEM    = FCTCEL/TWO 
6237:          FCTIES    = FCTCEL/78.5D0 
6238:          FCTTAU    = FCTIEM-FCTIES 
6239:          FCTPCO    = FOUR/(FCTTAU*FCTTAU) 
6240:  
6241: C Define the number of native van der Waals radii. 
6242:  
6243:          FCTNNV    = 19 
6244:  
6245: C Define the number of actual van der Waals radii. 
6246:  
6247:          FCTNAV    = 19 
6248:  
6249: C Define the native van der Waals radii. 
6250:  
6251:          FCTRVW(1 )= 0.2245D0 
6252:          FCTRVW(2 )= 0.4500D0 
6253:          FCTRVW(3 )= 0.7000D0 
6254:          FCTRVW(4 )= 0.9000D0 
6255:          FCTRVW(5 )= 1.3200D0 
6256:          FCTRVW(6 )= 1.3582D0 
6257:          FCTRVW(7 )= 1.4680D0 
6258:          FCTRVW(8 )= 1.7000D0 
6259:          FCTRVW(9 )= 1.7700D0 
6260:          FCTRVW(10)= 1.8000D0 
6261:          FCTRVW(11)= 1.8500D0 
6262:          FCTRVW(12)= 1.9750D0 
6263:          FCTRVW(13)= 1.9924D0 
6264:          FCTRVW(14)= 2.0000D0 
6265:          FCTRVW(15)= 2.0600D0 
6266:          FCTRVW(16)= 2.1750D0 
6267:          FCTRVW(17)= 2.2350D0 
6268:          FCTRVW(18)= 2.2750D0 
6269:          FCTRVW(19)= 2.3650D0 
6270:  
6271: C Define the cutoffs for the FACTS self and interaction energy pair 
6272: C lists. 
6273:  
6274:          FCTCSL    =12.0D0 
6275:          FCTCIL    =14.0D0 
6276:  
6277: C Define the cutoffs for the FACTS self and interaction energy 
6278: C calculations. 
6279:  
6280:          FCTCSC(1 )= 0.708767E+01 
6281:          FCTCSC(2 )= 0.729938E+01 
6282:          FCTCSC(3 )= 0.600000E+01 
6283:          FCTCSC(4 )= 0.679166E+01 
6284:          FCTCSC(5 )= 0.825820E+01 
6285:          FCTCSC(6 )= 0.831263E+01 
6286:          FCTCSC(7 )= 0.751347E+01 
6287:          FCTCSC(8 )= 0.845933E+01 
6288:          FCTCSC(9 )= 0.845001E+01 
6289:          FCTCSC(10)= 0.827363E+01 
6290:          FCTCSC(11)= 0.844284E+01 
6291:          FCTCSC(12)= 0.921829E+01 
6292:          FCTCSC(13)= 0.925872E+01 
6293:          FCTCSC(14)= 0.878370E+01 
6294:          FCTCSC(15)= 0.100000E+02 
6295:          FCTCSC(16)= 0.890240E+01 
6296:          FCTCSC(17)= 0.600000E+01 
6297:          FCTCSC(18)= 0.954464E+01 
6298:          FCTCSC(19)= 0.600000E+01 
6299:          FCTCIC    =12.0D0 
6300:  
6301: C Define the parameters for calculating atomic solvation energies. 
6302:  
6303:          FCTCB1(1 )=-0.483656E+03 
6304:          FCTCB2(1 )=-0.204915E+01 
6305:          FCTCA0(1 )=-0.700328E+02 
6306:          FCTCA1(1 )= 0.585122E+02 
6307:          FCTCA2(1 )= 0.440294E-02 
6308:          FCTCA3(1 )=-0.165164E+03 
6309:  
6310:          FCTCB1(2 )= 0.549650E+02 
6311:          FCTCB2(2 )=-0.170556E+01 
6312:          FCTCA0(2 )=-0.898920E+02 
6313:          FCTCA1(2 )= 0.898900E+02 
6314:          FCTCA2(2 )= 0.709650E-02 
6315:          FCTCA3(2 )= 0.113554E+03 
6316:  
6317:          FCTCB1(3 )= 0.549650E+02 
6318:          FCTCB2(3 )=-0.170556E+01 
6319:          FCTCA0(3 )=-0.898920E+02 
6320:          FCTCA1(3 )= 0.898900E+02 
6321:          FCTCA2(3 )= 0.709650E-02 
6322:          FCTCA3(3 )= 0.113554E+03 
6323:  
6324:          FCTCB1(4 )= 0.549650E+02 
6325:          FCTCB2(4 )=-0.170556E+01 
6326:          FCTCA0(4 )=-0.898920E+02 
6327:          FCTCA1(4 )= 0.898900E+02 
6328:          FCTCA2(4 )= 0.709650E-02 
6329:          FCTCA3(4 )= 0.113554E+03 
6330:  
6331:          FCTCB1(5 )=-0.106521E+03 
6332:          FCTCB2(5 )=-0.132303E+01 
6333:          FCTCA0(5 )=-0.612900E+02 
6334:          FCTCA1(5 )= 0.612880E+02 
6335:          FCTCA2(5 )= 0.256643E-02 
6336:          FCTCA3(5 )= 0.341634E+03 
6337:  
6338:          FCTCB1(6 )=-0.151213E+03 
6339:          FCTCB2(6 )=-0.134286E+01 
6340:          FCTCA0(6 )=-0.595662E+02 
6341:          FCTCA1(6 )= 0.595642E+02 
6342:          FCTCA2(6 )= 0.255313E-02 
6343:          FCTCA3(6 )= 0.404864E+03 
6344:  
6345:          FCTCB1(7 )=-0.276787E+02 
6346:          FCTCB2(7 )=-0.792865E+00 
6347:          FCTCA0(7 )=-0.551109E+02 
6348:          FCTCA1(7 )= 0.551089E+02 
6349:          FCTCA2(7 )= 0.406121E-02 
6350:          FCTCA3(7 )= 0.482670E+03 
6351:  
6352:          FCTCB1(8 )=-0.296518E+03 
6353:          FCTCB2(8 )=-0.913736E+00 
6354:          FCTCA0(8 )=-0.475899E+02 
6355:          FCTCA1(8 )= 0.475879E+02 
6356:          FCTCA2(8 )= 0.227454E-02 
6357:          FCTCA3(8 )= 0.642012E+03 
6358:  
6359:          FCTCB1(9 )=-0.356797E+03 
6360:          FCTCB2(9 )=-0.727135E+00 
6361:          FCTCA0(9 )=-0.457078E+02 
6362:          FCTCA1(9 )= 0.457058E+02 
6363:          FCTCA2(9 )= 0.223982E-02 
6364:          FCTCA3(9 )= 0.677236E+03 
6365:  
6366:          FCTCB1(10)=-0.518968E+03 
6367:          FCTCB2(10)=-0.387026E+00 
6368:          FCTCA0(10)=-0.449460E+02 
6369:          FCTCA1(10)= 0.449440E+02 
6370:          FCTCA2(10)= 0.215001E-02 
6371:          FCTCA3(10)= 0.626869E+03 
6372:  
6373:          FCTCB1(11)=-0.489213E+03 
6374:          FCTCB2(11)=-0.445345E+00 
6375:          FCTCA0(11)=-0.437312E+02 
6376:          FCTCA1(11)= 0.437292E+02 
6377:          FCTCA2(11)= 0.206363E-02 
6378:          FCTCA3(11)= 0.745653E+03 
6379:  
6380:          FCTCB1(12)= 0.276081E+03 
6381:          FCTCB2(12)=-0.980170E+00 
6382:          FCTCA0(12)=-0.409634E+02 
6383:          FCTCA1(12)= 0.409614E+02 
6384:          FCTCA2(12)= 0.223955E-02 
6385:          FCTCA3(12)= 0.102502E+04 
6386:  
6387:          FCTCB1(13)=-0.200621E+03 
6388:          FCTCB2(13)=-0.921209E+00 
6389:          FCTCA0(13)=-0.406057E+02 
6390:          FCTCA1(13)= 0.406037E+02 
6391:          FCTCA2(13)= 0.178926E-02 
6392:          FCTCA3(13)= 0.940900E+03 
6393:  
6394:          FCTCB1(14)= 0.420018E+01 
6395:          FCTCB2(14)=-0.634365E+00 
6396:          FCTCA0(14)=-0.404514E+02 
6397:          FCTCA1(14)= 0.404494E+02 
6398:          FCTCA2(14)= 0.199922E-02 
6399:          FCTCA3(14)= 0.941249E+03 
6400:  
6401:          FCTCB1(15)= 0.161564E+03 
6402:          FCTCB2(15)=-0.980790E+00 
6403:          FCTCA0(15)=-0.392732E+02 
6404:          FCTCA1(15)= 0.392712E+02 
6405:          FCTCA2(15)= 0.176127E-02 
6406:          FCTCA3(15)= 0.128210E+04 
6407:  
6408:          FCTCB1(16)= 0.887817E+01 
6409:          FCTCB2(16)=-0.867689E+00 
6410:          FCTCA0(16)=-0.371967E+02 
6411:          FCTCA1(16)= 0.371947E+02 
6412:          FCTCA2(16)= 0.220477E-02 
6413:          FCTCA3(16)= 0.977038E+03 
6414:  
6415:          FCTCB1(17)= 0.609835E+03 
6416:          FCTCB2(17)=-0.116869E+01 
6417:          FCTCA0(17)=-0.355617E+02 
6418:          FCTCA1(17)= 0.355597E+02 
6419:          FCTCA2(17)= 0.180182E-02 
6420:          FCTCA3(17)= 0.124516E+04 
6421:  
6422:          FCTCB1(18)= 0.609835E+03 
6423:          FCTCB2(18)=-0.116869E+01 
6424:          FCTCA0(18)=-0.355617E+02 
6425:          FCTCA1(18)= 0.355597E+02 
6426:          FCTCA2(18)= 0.180182E-02 
6427:          FCTCA3(18)= 0.124516E+04 
6428:  
6429:          FCTCB1(19)= 0.609835E+03 
6430:          FCTCB2(19)=-0.116869E+01 
6431:          FCTCA0(19)=-0.355617E+02 
6432:          FCTCA1(19)= 0.355597E+02 
6433:          FCTCA2(19)= 0.180182E-02 
6434:          FCTCA3(19)= 0.124516E+04 
6435:  
6436:          FCTQOS    = ZERO 
6437:  
6438: C Define the parameters for calculating atomic solvent accessible 
6439: C surface areas. 
6440:  
6441:          FCTCD1(1 )=-0.597528E+04 
6442:          FCTCD2(1 )=-0.132626E+02 
6443:          FCTCC0(1 )= 0.331627E+02 
6444:          FCTCC1(1 )=-0.331607E+02 
6445:          FCTCC2(1 )= 0.268702E-01 
6446:          FCTCC3(1 )=-0.945280E+04 
6447:  
6448:          FCTCD1(2 )=-0.337531E+04 
6449:          FCTCD2(2 )=-0.825278E+01 
6450:          FCTCC0(2 )= 0.664761E+02 
6451:          FCTCC1(2 )=-0.664741E+02 
6452:          FCTCC2(2 )= 0.134909E-02 
6453:          FCTCC3(2 )=-0.540283E+04 
6454:  
6455:          FCTCD1(3 )=-0.337531E+04 
6456:          FCTCD2(3 )=-0.825278E+01 
6457:          FCTCC0(3 )= 0.664761E+02 
6458:          FCTCC1(3 )=-0.664741E+02 
6459:          FCTCC2(3 )= 0.134909E-02 
6460:          FCTCC3(3 )=-0.540283E+04 
6461:  
6462:          FCTCD1(4 )=-0.337531E+04 
6463:          FCTCD2(4 )=-0.825278E+01 
6464:          FCTCC0(4 )= 0.664761E+02 
6465:          FCTCC1(4 )=-0.664741E+02 
6466:          FCTCC2(4 )= 0.134909E-02 
6467:          FCTCC3(4 )=-0.540283E+04 
6468:  
6469:          FCTCD1(5 )=-0.227334E+05 
6470:          FCTCD2(5 )=-0.123295E+02 
6471:          FCTCC0(5 )= 0.929710E+02 
6472:          FCTCC1(5 )=-0.929690E+02 
6473:          FCTCC2(5 )= 0.257980E-03 
6474:          FCTCC3(5 )=-0.275568E+05 
6475:  
6476:          FCTCD1(6 )=-0.970016E+04 
6477:          FCTCD2(6 )=-0.931682E+01 
6478:          FCTCC0(6 )= 0.956008E+02 
6479:          FCTCC1(6 )=-0.955988E+02 
6480:          FCTCC2(6 )= 0.518505E-03 
6481:          FCTCC3(6 )=-0.122744E+05 
6482:  
6483:          FCTCD1(7 )=-0.156406E+04 
6484:          FCTCD2(7 )=-0.229863E+01 
6485:          FCTCC0(7 )= 0.103364E+03 
6486:          FCTCC1(7 )=-0.103362E+03 
6487:          FCTCC2(7 )= 0.259637E-02 
6488:          FCTCC3(7 )=-0.174776E+04 
6489:  
6490:          FCTCD1(8 )=-0.428198E+03 
6491:          FCTCD2(8 )=-0.161616E+01 
6492:          FCTCC0(8 )= 0.120763E+03 
6493:          FCTCC1(8 )=-0.120761E+03 
6494:          FCTCC2(8 )= 0.384137E-02 
6495:          FCTCC3(8 )=-0.598349E+03 
6496:  
6497:          FCTCD1(9 )=-0.100680E+04 
6498:          FCTCD2(9 )=-0.145899E+01 
6499:          FCTCC0(9 )= 0.126278E+03 
6500:          FCTCC1(9 )=-0.126276E+03 
6501:          FCTCC2(9 )= 0.278499E-02 
6502:          FCTCC3(9 )=-0.105848E+04 
6503:  
6504:          FCTCD1(10)=-0.584761E+04 
6505:          FCTCD2(10)=-0.400291E+01 
6506:          FCTCC0(10)= 0.128680E+03 
6507:          FCTCC1(10)=-0.128678E+03 
6508:          FCTCC2(10)= 0.117228E-02 
6509:          FCTCC3(10)=-0.561052E+04 
6510:  
6511:          FCTCD1(11)=-0.368958E+03 
6512:          FCTCD2(11)=-0.160743E+01 
6513:          FCTCC0(11)= 0.132732E+03 
6514:          FCTCC1(11)=-0.132730E+03 
6515:          FCTCC2(11)= 0.453277E-02 
6516:          FCTCC3(11)=-0.479033E+03 
6517:  
6518:          FCTCD1(12)=-0.386416E+04 
6519:          FCTCD2(12)=-0.475745E+01 
6520:          FCTCC0(12)= 0.143139E+03 
6521:          FCTCC1(12)=-0.143137E+03 
6522:          FCTCC2(12)= 0.111939E-02 
6523:          FCTCC3(12)=-0.466434E+04 
6524:  
6525:          FCTCD1(13)=-0.228226E+03 
6526:          FCTCD2(13)=-0.128129E+01 
6527:          FCTCC0(13)= 0.144619E+03 
6528:          FCTCC1(13)=-0.144617E+03 
6529:          FCTCC2(13)= 0.354868E-02 
6530:          FCTCC3(13)=-0.596089E+03 
6531:  
6532:          FCTCD1(14)=-0.330023E+05 
6533:          FCTCD2(14)= 0.291087E+02 
6534:          FCTCC0(14)= 0.145267E+03 
6535:          FCTCC1(14)=-0.145265E+03 
6536:          FCTCC2(14)= 0.283263E-03 
6537:          FCTCC3(14)=-0.195503E+05 
6538:  
6539:          FCTCD1(15)=-0.261470E+03 
6540:          FCTCD2(15)=-0.169021E+01 
6541:          FCTCC0(15)= 0.150440E+03 
6542:          FCTCC1(15)=-0.150438E+03 
6543:          FCTCC2(15)= 0.265060E-02 
6544:          FCTCC3(15)=-0.770449E+03 
6545:  
6546:          FCTCD1(16)= 0.140386E+02 
6547:          FCTCD2(16)=-0.199711E+01 
6548:          FCTCC0(16)= 0.160606E+03 
6549:          FCTCC1(16)=-0.160604E+03 
6550:          FCTCC2(16)= 0.460762E-02 
6551:          FCTCC3(16)=-0.407165E+03 
6552:  
6553:          FCTCD1(17)= 0.457199E+03 
6554:          FCTCD2(17)=-0.244355E+01 
6555:          FCTCC0(17)= 0.169717E+03 
6556:          FCTCC1(17)=-0.169715E+03 
6557:          FCTCC2(17)= 0.434189E-02 
6558:          FCTCC3(17)=-0.444777E+03 
6559:  
6560:          FCTCD1(18)= 0.457199E+03 
6561:          FCTCD2(18)=-0.244355E+01 
6562:          FCTCC0(18)= 0.169717E+03 
6563:          FCTCC1(18)=-0.169715E+03 
6564:          FCTCC2(18)= 0.434189E-02 
6565:          FCTCC3(18)=-0.444777E+03 
6566:  
6567:          FCTCD1(19)= 0.457199E+03 
6568:          FCTCD2(19)=-0.244355E+01 
6569:          FCTCC0(19)= 0.169717E+03 
6570:          FCTCC1(19)=-0.169715E+03 
6571:          FCTCC2(19)= 0.434189E-02 
6572:          FCTCC3(19)=-0.444777E+03 
6573:  
6574:          FCTUOS    = ZERO 
6575:  
6576: C Define the parameters for calculating alpha. 
6577:  
6578:          FCTCF1(1 )=-0.483656E+03 
6579:          FCTCF2(1 )=-0.204915E+01 
6580:          FCTCE0(1 )= FCTAP0 
6581:          FCTCE1(1 )= FCTAP1 
6582:          FCTCE2(1 )= FCTAP2 
6583:          FCTCE3(1 )= FCTAP3 
6584:  
6585:          FCTCF1(2 )= 0.549650E+02 
6586:          FCTCF2(2 )=-0.170556E+01 
6587:          FCTCE0(2 )= FCTAP0 
6588:          FCTCE1(2 )= FCTAP1 
6589:          FCTCE2(2 )= FCTAP2 
6590:          FCTCE3(2 )= FCTAP3 
6591:  
6592:          FCTCF1(3 )= 0.549650E+02 
6593:          FCTCF2(3 )=-0.170556E+01 
6594:          FCTCE0(3 )= FCTAP0 
6595:          FCTCE1(3 )= FCTAP1 
6596:          FCTCE2(3 )= FCTAP2 
6597:          FCTCE3(3 )= FCTAP3 
6598:  
6599:          FCTCF1(4 )= 0.549650E+02 
6600:          FCTCF2(4 )=-0.170556E+01 
6601:          FCTCE0(4 )= FCTAP0 
6602:          FCTCE1(4 )= FCTAP1 
6603:          FCTCE2(4 )= FCTAP2 
6604:          FCTCE3(4 )= FCTAP3 
6605:  
6606:          FCTCF1(5 )=-0.106521E+03 
6607:          FCTCF2(5 )=-0.132303E+01 
6608:          FCTCE0(5 )= FCTAP0 
6609:          FCTCE1(5 )= FCTAP1 
6610:          FCTCE2(5 )= FCTAP2 
6611:          FCTCE3(5 )= FCTAP3 
6612:  
6613:          FCTCF1(6 )=-0.151213E+03 
6614:          FCTCF2(6 )=-0.134286E+01 
6615:          FCTCE0(6 )= FCTAP0 
6616:          FCTCE1(6 )= FCTAP1 
6617:          FCTCE2(6 )= FCTAP2 
6618:          FCTCE3(6 )= FCTAP3 
6619:  
6620:          FCTCF1(7 )=-0.276787E+02 
6621:          FCTCF2(7 )=-0.792865E+00 
6622:          FCTCE0(7 )= FCTAP0 
6623:          FCTCE1(7 )= FCTAP1 
6624:          FCTCE2(7 )= FCTAP2 
6625:          FCTCE3(7 )= FCTAP3 
6626:  
6627:          FCTCF1(8 )=-0.296518E+03 
6628:          FCTCF2(8 )=-0.913736E+00 
6629:          FCTCE0(8 )= FCTAP0 
6630:          FCTCE1(8 )= FCTAP1 
6631:          FCTCE2(8 )= FCTAP2 
6632:          FCTCE3(8 )= FCTAP3 
6633:  
6634:          FCTCF1(9 )=-0.356797E+03 
6635:          FCTCF2(9 )=-0.727135E+00 
6636:          FCTCE0(9 )= FCTAP0 
6637:          FCTCE1(9 )= FCTAP1 
6638:          FCTCE2(9 )= FCTAP2 
6639:          FCTCE3(9 )= FCTAP3 
6640:  
6641:          FCTCF1(10)=-0.518968E+03 
6642:          FCTCF2(10)=-0.387026E+00 
6643:          FCTCE0(10)= FCTAP0 
6644:          FCTCE1(10)= FCTAP1 
6645:          FCTCE2(10)= FCTAP2 
6646:          FCTCE3(10)= FCTAP3 
6647:  
6648:          FCTCF1(11)=-0.489213E+03 
6649:          FCTCF2(11)=-0.445345E+00 
6650:          FCTCE0(11)= FCTAP0 
6651:          FCTCE1(11)= FCTAP1 
6652:          FCTCE2(11)= FCTAP2 
6653:          FCTCE3(11)= FCTAP3 
6654:  
6655:          FCTCF1(12)= 0.276081E+03 
6656:          FCTCF2(12)=-0.980170E+00 
6657:          FCTCE0(12)= FCTAP0 
6658:          FCTCE1(12)= FCTAP1 
6659:          FCTCE2(12)= FCTAP2 
6660:          FCTCE3(12)= FCTAP3 
6661:  
6662:          FCTCF1(13)=-0.200621E+03 
6663:          FCTCF2(13)=-0.921209E+00 
6664:          FCTCE0(13)= FCTAP0 
6665:          FCTCE1(13)= FCTAP1 
6666:          FCTCE2(13)= FCTAP2 
6667:          FCTCE3(13)= FCTAP3 
6668:  
6669:          FCTCF1(14)= 0.420018E+01 
6670:          FCTCF2(14)=-0.634365E+00 
6671:          FCTCE0(14)= FCTAP0 
6672:          FCTCE1(14)= FCTAP1 
6673:          FCTCE2(14)= FCTAP2 
6674:          FCTCE3(14)= FCTAP3 
6675:  
6676:          FCTCF1(15)= 0.161564E+03 
6677:          FCTCF2(15)=-0.980790E+00 
6678:          FCTCE0(15)= FCTAP0 
6679:          FCTCE1(15)= FCTAP1 
6680:          FCTCE2(15)= FCTAP2 
6681:          FCTCE3(15)= FCTAP3 
6682:  
6683:          FCTCF1(16)= 0.887817E+01 
6684:          FCTCF2(16)=-0.867689E+00 
6685:          FCTCE0(16)= FCTAP0 
6686:          FCTCE1(16)= FCTAP1 
6687:          FCTCE2(16)= FCTAP2 
6688:          FCTCE3(16)= FCTAP3 
6689:  
6690:          FCTCF1(17)= 0.609835E+03 
6691:          FCTCF2(17)=-0.116869E+01 
6692:          FCTCE0(17)= FCTAP0 
6693:          FCTCE1(17)= FCTAP1 
6694:          FCTCE2(17)= FCTAP2 
6695:          FCTCE3(17)= FCTAP3 
6696:  
6697:          FCTCF1(18)= 0.609835E+03 
6698:          FCTCF2(18)=-0.116869E+01 
6699:          FCTCE0(18)= FCTAP0 
6700:          FCTCE1(18)= FCTAP1 
6701:          FCTCE2(18)= FCTAP2 
6702:          FCTCE3(18)= FCTAP3 
6703:  
6704:          FCTCF1(19)= 0.609835E+03 
6705:          FCTCF2(19)=-0.116869E+01 
6706:          FCTCE0(19)= FCTAP0 
6707:          FCTCE1(19)= FCTAP1 
6708:          FCTCE2(19)= FCTAP2 
6709:          FCTCE3(19)= FCTAP3 
6710:  
6711:          FCTVOS    = ZERO 
6712:  
6713: C Define the parameters for calculating beta. 
6714:  
6715:          FCTCH1(1 )=-0.483656E+03 
6716:          FCTCH2(1 )=-0.204915E+01 
6717:          FCTCG0(1 )= FCTBT0 
6718:          FCTCG1(1 )= FCTBT1 
6719:          FCTCG2(1 )= FCTBT2 
6720:          FCTCG3(1 )= FCTBT3 
6721:  
6722:          FCTCH1(2 )= 0.549650E+02 
6723:          FCTCH2(2 )=-0.170556E+01 
6724:          FCTCG0(2 )= FCTBT0 
6725:          FCTCG1(2 )= FCTBT1 
6726:          FCTCG2(2 )= FCTBT2 
6727:          FCTCG3(2 )= FCTBT3 
6728:  
6729:          FCTCH1(3 )= 0.549650E+02 
6730:          FCTCH2(3 )=-0.170556E+01 
6731:          FCTCG0(3 )= FCTBT0 
6732:          FCTCG1(3 )= FCTBT1 
6733:          FCTCG2(3 )= FCTBT2 
6734:          FCTCG3(3 )= FCTBT3 
6735:  
6736:          FCTCH1(4 )= 0.549650E+02 
6737:          FCTCH2(4 )=-0.170556E+01 
6738:          FCTCG0(4 )= FCTBT0 
6739:          FCTCG1(4 )= FCTBT1 
6740:          FCTCG2(4 )= FCTBT2 
6741:          FCTCG3(4 )= FCTBT3 
6742:  
6743:          FCTCH1(5 )=-0.106521E+03 
6744:          FCTCH2(5 )=-0.132303E+01 
6745:          FCTCG0(5 )= FCTBT0 
6746:          FCTCG1(5 )= FCTBT1 
6747:          FCTCG2(5 )= FCTBT2 
6748:          FCTCG3(5 )= FCTBT3 
6749:  
6750:          FCTCH1(6 )=-0.151213E+03 
6751:          FCTCH2(6 )=-0.134286E+01 
6752:          FCTCG0(6 )= FCTBT0 
6753:          FCTCG1(6 )= FCTBT1 
6754:          FCTCG2(6 )= FCTBT2 
6755:          FCTCG3(6 )= FCTBT3 
6756:  
6757:          FCTCH1(7 )=-0.276787E+02 
6758:          FCTCH2(7 )=-0.792865E+00 
6759:          FCTCG0(7 )= FCTBT0 
6760:          FCTCG1(7 )= FCTBT1 
6761:          FCTCG2(7 )= FCTBT2 
6762:          FCTCG3(7 )= FCTBT3 
6763:  
6764:          FCTCH1(8 )=-0.296518E+03 
6765:          FCTCH2(8 )=-0.913736E+00 
6766:          FCTCG0(8 )= FCTBT0 
6767:          FCTCG1(8 )= FCTBT1 
6768:          FCTCG2(8 )= FCTBT2 
6769:          FCTCG3(8 )= FCTBT3 
6770:  
6771:          FCTCH1(9 )=-0.356797E+03 
6772:          FCTCH2(9 )=-0.727135E+00 
6773:          FCTCG0(9 )= FCTBT0 
6774:          FCTCG1(9 )= FCTBT1 
6775:          FCTCG2(9 )= FCTBT2 
6776:          FCTCG3(9 )= FCTBT3 
6777:  
6778:          FCTCH1(10)=-0.518968E+03 
6779:          FCTCH2(10)=-0.387026E+00 
6780:          FCTCG0(10)= FCTBT0 
6781:          FCTCG1(10)= FCTBT1 
6782:          FCTCG2(10)= FCTBT2 
6783:          FCTCG3(10)= FCTBT3 
6784:  
6785:          FCTCH1(11)=-0.489213E+03 
6786:          FCTCH2(11)=-0.445345E+00 
6787:          FCTCG0(11)= FCTBT0 
6788:          FCTCG1(11)= FCTBT1 
6789:          FCTCG2(11)= FCTBT2 
6790:          FCTCG3(11)= FCTBT3 
6791:  
6792:          FCTCH1(12)= 0.276081E+03 
6793:          FCTCH2(12)=-0.980170E+00 
6794:          FCTCG0(12)= FCTBT0 
6795:          FCTCG1(12)= FCTBT1 
6796:          FCTCG2(12)= FCTBT2 
6797:          FCTCG3(12)= FCTBT3 
6798: