diff --git a/src/common_inc.f90 b/src/common_inc.f90 deleted file mode 100644 index a6c36a1..0000000 --- a/src/common_inc.f90 +++ /dev/null @@ -1,61 +0,0 @@ -module common - use accuracy_constants, only: idp, dp - use nn_params, only: maxoutp - implicit none - - !.. npar: number of parameters - !.. pst: starting addresses and lengths of parameter blocks - integer(idp):: npar, pst(2,100) - - !common /parnum/ npar, pst - - !****************************************************************************** - !**** Syntactic & Parsing parameters - !*** - !*** keylist: Registry of keys containing the name of the key - !*** and it's type information. - !*** keylist(N,1): keyname. It should be in all-caps. - !*** keylist(N,2): type string of the form "X#" - !*** keynum: actual number of keys on keylist - !*** datpos: integer array assigning read values to the keys - !*** datpos(1,N): internalized type (0: I, 1: +I, 2: D, 3: +D, - !*** 4: C, 5: E) - !*** datpos(2,N): starting pos. in respective data array - !*** datpos(3,N): length of data block - - integer(idp):: keynum,datpos(3,maxdat) - character(len=klen):: keylist(2,maxkeys) - character(len=klen):: errcat(maxerrors) - - !common /synt/ datpos,keynum,keylist,errcat - - !****************************************************************************** - !**** Misc. fit modifiers - !*** - !*** zero_par: set all fitting parameters to zero - !*** legacy_wt: WT:-cards are expected for each output component - !*** individually - !*** walk_scan: if true, map scans to the unit interval [0,1] - !*** otherwise, dump full coordinate vector instead. - - logical:: zero_par, legacy_wt - logical:: walk_scan - - !common /fitmisc/ zero_par, legacy_wt, walk_scan - - !****************************************************************************** - !**** Generic error analysis parameters - !*** - !*** cutoff: maximal value to be considered for each output in the - !*** context of an unweighted error - !*** showcut: if true, calculate unweighted errors with cutoff thresholds - - real(dp):: cutoff(maxoutp),cutwei(maxoutp) - logical:: showcut - - !common /eval/ cutoff, cutwei, showcut - - - - -END Module \ No newline at end of file diff --git a/src/model/without_symm_dip_pes.f90 b/src/model/without_symm_dip_pes.f90 deleted file mode 100644 index 4d36cf8..0000000 --- a/src/model/without_symm_dip_pes.f90 +++ /dev/null @@ -1,913 +0,0 @@ - Module dip_param - IMPLICIT NONE - Integer,parameter :: np=101 - Double precision :: p(101) - integer :: pst(2,400) - ! Non zero parameters are 20 - contains - - SUBROUTINE init_dip_planar_data() - implicit none - p( 1)= -0.561433980D+02 - p( 2)= 0.000000000D+00 - p( 3)= 0.000000000D+00 - p( 4)= -0.558830090D+02 - p( 5)= 0.000000000D+00 - p( 6)= 0.000000000D+00 - p( 7)= -0.557220030D+02 - p( 8)= 0.000000000D+00 - p( 9)= 0.000000000D+00 - p( 10)= 0.000000000D+00 - p( 11)= 0.346660755D-02 - p( 12)= 0.000000000D+00 - p( 13)= 0.745842871D-04 - p( 14)= 0.000000000D+00 - p( 15)= 0.000000000D+00 - p( 16)= 0.000000000D+00 - p( 17)= 0.000000000D+00 - p( 18)= 0.000000000D+00 - p( 19)= 0.000000000D+00 - p( 20)= 0.000000000D+00 - p( 21)= -0.532590808D-03 - p( 22)= 0.000000000D+00 - p( 23)= 0.000000000D+00 - p( 24)= 0.000000000D+00 - p( 25)= 0.000000000D+00 - p( 26)= 0.000000000D+00 - p( 27)= 0.000000000D+00 - p( 28)= -0.226326661D-01 - p( 29)= 0.000000000D+00 - p( 30)= -0.369184193D-01 - p( 31)= 0.000000000D+00 - p( 32)= 0.107573698D+00 - p( 33)= 0.000000000D+00 - p( 34)= 0.115472219D-03 - p( 35)= 0.000000000D+00 - p( 36)= 0.000000000D+00 - p( 37)= 0.188753347D-04 - p( 38)= 0.000000000D+00 - p( 39)= 0.000000000D+00 - p( 40)= -0.761215310D-02 - p( 41)= 0.000000000D+00 - p( 42)= 0.000000000D+00 - p( 43)= 0.000000000D+00 - p( 44)= 0.000000000D+00 - p( 45)= 0.000000000D+00 - p( 46)= 0.000000000D+00 - p( 47)= 0.000000000D+00 - p( 48)= 0.000000000D+00 - p( 49)= 0.217598103D+00 - p( 50)= -0.107350386D-01 - p( 51)= 0.000000000D+00 - p( 52)= 0.103908437D-03 - p( 53)= 0.000000000D+00 - p( 54)= 0.000000000D+00 - p( 55)= 0.000000000D+00 - p( 56)= 0.000000000D+00 - p( 57)= 0.000000000D+00 - p( 58)= 0.000000000D+00 - p( 59)= 0.000000000D+00 - p( 60)= 0.000000000D+00 - p( 61)= 0.000000000D+00 - p( 62)= 0.000000000D+00 - p( 63)= 0.000000000D+00 - p( 64)= 0.000000000D+00 - p( 65)= 0.000000000D+00 - p( 66)= 0.000000000D+00 - p( 67)= 0.000000000D+00 - p( 68)= 0.000000000D+00 - p( 69)= 0.000000000D+00 - p( 70)= 0.000000000D+00 - p( 71)= 0.000000000D+00 - p( 72)= 0.000000000D+00 - p( 73)= 0.000000000D+00 - p( 74)= 0.000000000D+00 - p( 75)= 0.000000000D+00 - p( 76)= 0.000000000D+00 - p( 77)= 0.000000000D+00 - p( 78)= 0.000000000D+00 - p( 79)= 0.000000000D+00 - p( 80)= 0.000000000D+00 - p( 81)= 0.000000000D+00 - p( 82)= 0.000000000D+00 - p( 83)= 0.000000000D+00 - p( 84)= 0.000000000D+00 - p( 85)= 0.000000000D+00 - p( 86)= 0.000000000D+00 - p( 87)= -0.567206500D-02 - p( 88)= 0.342983596D-02 - p( 89)= 0.000000000D+00 - p( 90)= 0.000000000D+00 - p( 91)= 0.000000000D+00 - p( 92)= 0.000000000D+00 - p( 93)= 0.000000000D+00 - p( 94)= 0.000000000D+00 - p( 95)= 0.000000000D+00 - p( 96)= 0.000000000D+00 - p( 97)= 0.000000000D+00 - p( 98)= 0.000000000D+00 - p( 99)= 0.000000000D+00 - p(100)= 0.000000000D+00 - p(101)= 0.000000000D+00 - pst(1, 1)= 1 - pst(2, 1)= 3 - pst(1, 2)= 4 - pst(2, 2)= 3 - pst(1, 3)= 7 - pst(2, 3)= 4 - pst(1, 4)= 11 - pst(2, 4)= 2 - pst(1, 5)= 13 - pst(2, 5)= 3 - pst(1, 6)= 16 - pst(2, 6)= 2 - pst(1, 7)= 18 - pst(2, 7)= 3 - pst(1, 8)= 21 - pst(2, 8)= 3 - pst(1, 9)= 24 - pst(2, 9)= 3 - pst(1, 10)= 27 - pst(2, 10)= 1 - pst(1, 11)= 28 - pst(2, 11)= 2 - pst(1, 12)= 30 - pst(2, 12)= 2 - pst(1, 13)= 32 - pst(2, 13)= 2 - pst(1, 14)= 34 - pst(2, 14)= 3 - pst(1, 15)= 37 - pst(2, 15)= 3 - pst(1, 16)= 40 - pst(2, 16)= 3 - pst(1, 17)= 43 - pst(2, 17)= 2 - pst(1, 18)= 45 - pst(2, 18)= 2 - pst(1, 19)= 47 - pst(2, 19)= 2 - pst(1, 20)= 49 - pst(2, 20)= 1 - pst(1, 21)= 50 - pst(2, 21)= 2 - pst(1, 22)= 52 - pst(2, 22)= 5 - pst(1, 23)= 57 - pst(2, 23)= 10 - pst(1, 24)= 67 - pst(2, 24)= 1 - pst(1, 25)= 68 - pst(2, 25)= 2 - pst(1, 26)= 70 - pst(2, 26)= 4 - pst(1, 27)= 74 - pst(2, 27)= 8 - pst(1, 28)= 82 - pst(2, 28)= 2 - pst(1, 29)= 84 - pst(2, 29)= 3 - pst(1, 30)= 87 - pst(2, 30)= 1 - pst(1, 31)= 88 - pst(2, 31)= 2 - pst(1, 32)= 90 - pst(2, 32)= 4 - pst(1, 33)= 94 - pst(2, 33)= 8 - pst(1, 34)= 0 - pst(2, 34)= 0 - pst(1, 35)= 0 - pst(2, 35)= 0 - pst(1, 36)= 0 - pst(2, 36)= 0 - pst(1, 37)= 0 - pst(2, 37)= 0 - pst(1, 38)= 0 - pst(2, 38)= 0 - pst(1, 39)= 0 - pst(2, 39)= 0 - pst(1, 40)= 0 - pst(2, 40)= 0 - pst(1, 41)= 0 - pst(2, 41)= 0 - pst(1, 42)= 0 - pst(2, 42)= 0 - pst(1, 43)= 0 - pst(2, 43)= 0 - pst(1, 44)= 0 - pst(2, 44)= 0 - pst(1, 45)= 0 - pst(2, 45)= 0 - pst(1, 46)= 0 - pst(2, 46)= 0 - pst(1, 47)= 0 - pst(2, 47)= 0 - pst(1, 48)= 0 - pst(2, 48)= 0 - pst(1, 49)= 0 - pst(2, 49)= 0 - pst(1, 50)= 0 - pst(2, 50)= 0 - pst(1, 51)= 0 - pst(2, 51)= 0 - pst(1, 52)= 0 - pst(2, 52)= 0 - pst(1, 53)= 0 - pst(2, 53)= 0 - pst(1, 54)= 0 - pst(2, 54)= 0 - pst(1, 55)= 0 - pst(2, 55)= 0 - pst(1, 56)= 0 - pst(2, 56)= 0 - pst(1, 57)= 0 - pst(2, 57)= 0 - pst(1, 58)= 0 - pst(2, 58)= 0 - pst(1, 59)= 0 - pst(2, 59)= 0 - pst(1, 60)= 0 - pst(2, 60)= 0 - pst(1, 61)= 0 - pst(2, 61)= 0 - pst(1, 62)= 0 - pst(2, 62)= 0 - pst(1, 63)= 0 - pst(2, 63)= 0 - pst(1, 64)= 0 - pst(2, 64)= 0 - pst(1, 65)= 0 - pst(2, 65)= 0 - pst(1, 66)= 0 - pst(2, 66)= 0 - pst(1, 67)= 0 - pst(2, 67)= 0 - pst(1, 68)= 0 - pst(2, 68)= 0 - pst(1, 69)= 0 - pst(2, 69)= 0 - pst(1, 70)= 0 - pst(2, 70)= 0 - pst(1, 71)= 0 - pst(2, 71)= 0 - pst(1, 72)= 0 - pst(2, 72)= 0 - pst(1, 73)= 0 - pst(2, 73)= 0 - pst(1, 74)= 0 - pst(2, 74)= 0 - pst(1, 75)= 0 - pst(2, 75)= 0 - pst(1, 76)= 0 - pst(2, 76)= 0 - pst(1, 77)= 0 - pst(2, 77)= 0 - pst(1, 78)= 0 - pst(2, 78)= 0 - pst(1, 79)= 0 - pst(2, 79)= 0 - pst(1, 80)= 0 - pst(2, 80)= 0 - pst(1, 81)= 0 - pst(2, 81)= 0 - pst(1, 82)= 0 - pst(2, 82)= 0 - pst(1, 83)= 0 - pst(2, 83)= 0 - pst(1, 84)= 0 - pst(2, 84)= 0 - pst(1, 85)= 0 - pst(2, 85)= 0 - pst(1, 86)= 0 - pst(2, 86)= 0 - pst(1, 87)= 0 - pst(2, 87)= 0 - pst(1, 88)= 0 - pst(2, 88)= 0 - pst(1, 89)= 0 - pst(2, 89)= 0 - pst(1, 90)= 0 - pst(2, 90)= 0 - pst(1, 91)= 0 - pst(2, 91)= 0 - pst(1, 92)= 0 - pst(2, 92)= 0 - pst(1, 93)= 0 - pst(2, 93)= 0 - pst(1, 94)= 0 - pst(2, 94)= 0 - pst(1, 95)= 0 - pst(2, 95)= 0 - pst(1, 96)= 0 - pst(2, 96)= 0 - pst(1, 97)= 0 - pst(2, 97)= 0 - pst(1, 98)= 0 - pst(2, 98)= 0 - pst(1, 99)= 0 - pst(2, 99)= 0 - pst(1,100)= 0 - pst(2,100)= 0 - pst(1,101)= 0 - pst(2,101)= 0 - pst(1,102)= 0 - pst(2,102)= 0 - pst(1,103)= 0 - pst(2,103)= 0 - pst(1,104)= 0 - pst(2,104)= 0 - pst(1,105)= 0 - pst(2,105)= 0 - pst(1,106)= 0 - pst(2,106)= 0 - pst(1,107)= 0 - pst(2,107)= 0 - pst(1,108)= 0 - pst(2,108)= 0 - pst(1,109)= 0 - pst(2,109)= 0 - pst(1,110)= 0 - pst(2,110)= 0 - pst(1,111)= 0 - pst(2,111)= 0 - pst(1,112)= 0 - pst(2,112)= 0 - pst(1,113)= 0 - pst(2,113)= 0 - pst(1,114)= 0 - pst(2,114)= 0 - pst(1,115)= 0 - pst(2,115)= 0 - pst(1,116)= 0 - pst(2,116)= 0 - pst(1,117)= 0 - pst(2,117)= 0 - pst(1,118)= 0 - pst(2,118)= 0 - pst(1,119)= 0 - pst(2,119)= 0 - pst(1,120)= 0 - pst(2,120)= 0 - pst(1,121)= 0 - pst(2,121)= 0 - pst(1,122)= 0 - pst(2,122)= 0 - pst(1,123)= 0 - pst(2,123)= 0 - pst(1,124)= 0 - pst(2,124)= 0 - pst(1,125)= 0 - pst(2,125)= 0 - pst(1,126)= 0 - pst(2,126)= 0 - pst(1,127)= 0 - pst(2,127)= 0 - pst(1,128)= 0 - pst(2,128)= 0 - pst(1,129)= 0 - pst(2,129)= 0 - pst(1,130)= 0 - pst(2,130)= 0 - pst(1,131)= 0 - pst(2,131)= 0 - pst(1,132)= 0 - pst(2,132)= 0 - pst(1,133)= 0 - pst(2,133)= 0 - pst(1,134)= 0 - pst(2,134)= 0 - pst(1,135)= 0 - pst(2,135)= 0 - pst(1,136)= 0 - pst(2,136)= 0 - pst(1,137)= 0 - pst(2,137)= 0 - pst(1,138)= 0 - pst(2,138)= 0 - pst(1,139)= 0 - pst(2,139)= 0 - pst(1,140)= 0 - pst(2,140)= 0 - pst(1,141)= 0 - pst(2,141)= 0 - pst(1,142)= 0 - pst(2,142)= 0 - pst(1,143)= 0 - pst(2,143)= 0 - pst(1,144)= 0 - pst(2,144)= 0 - pst(1,145)= 0 - pst(2,145)= 0 - pst(1,146)= 0 - pst(2,146)= 0 - pst(1,147)= 0 - pst(2,147)= 0 - pst(1,148)= 0 - pst(2,148)= 0 - pst(1,149)= 0 - pst(2,149)= 0 - pst(1,150)= 0 - pst(2,150)= 0 - pst(1,151)= 0 - pst(2,151)= 0 - pst(1,152)= 0 - pst(2,152)= 0 - pst(1,153)= 0 - pst(2,153)= 0 - pst(1,154)= 0 - pst(2,154)= 0 - pst(1,155)= 0 - pst(2,155)= 0 - pst(1,156)= 0 - pst(2,156)= 0 - pst(1,157)= 0 - pst(2,157)= 0 - pst(1,158)= 0 - pst(2,158)= 0 - pst(1,159)= 0 - pst(2,159)= 0 - pst(1,160)= 0 - pst(2,160)= 0 - pst(1,161)= 0 - pst(2,161)= 0 - pst(1,162)= 0 - pst(2,162)= 0 - pst(1,163)= 0 - pst(2,163)= 0 - pst(1,164)= 0 - pst(2,164)= 0 - pst(1,165)= 0 - pst(2,165)= 0 - pst(1,166)= 0 - pst(2,166)= 0 - pst(1,167)= 0 - pst(2,167)= 0 - pst(1,168)= 0 - pst(2,168)= 0 - pst(1,169)= 0 - pst(2,169)= 0 - pst(1,170)= 0 - pst(2,170)= 0 - pst(1,171)= 0 - pst(2,171)= 0 - pst(1,172)= 0 - pst(2,172)= 0 - pst(1,173)= 0 - pst(2,173)= 0 - pst(1,174)= 0 - pst(2,174)= 0 - pst(1,175)= 0 - pst(2,175)= 0 - pst(1,176)= 0 - pst(2,176)= 0 - pst(1,177)= 0 - pst(2,177)= 0 - pst(1,178)= 0 - pst(2,178)= 0 - pst(1,179)= 0 - pst(2,179)= 0 - pst(1,180)= 0 - pst(2,180)= 0 - pst(1,181)= 0 - pst(2,181)= 0 - pst(1,182)= 0 - pst(2,182)= 0 - pst(1,183)= 0 - pst(2,183)= 0 - pst(1,184)= 0 - pst(2,184)= 0 - pst(1,185)= 0 - pst(2,185)= 0 - pst(1,186)= 0 - pst(2,186)= 0 - pst(1,187)= 0 - pst(2,187)= 0 - pst(1,188)= 0 - pst(2,188)= 0 - pst(1,189)= 0 - pst(2,189)= 0 - pst(1,190)= 0 - pst(2,190)= 0 - pst(1,191)= 0 - pst(2,191)= 0 - pst(1,192)= 0 - pst(2,192)= 0 - pst(1,193)= 0 - pst(2,193)= 0 - pst(1,194)= 0 - pst(2,194)= 0 - pst(1,195)= 0 - pst(2,195)= 0 - pst(1,196)= 0 - pst(2,196)= 0 - pst(1,197)= 0 - pst(2,197)= 0 - pst(1,198)= 0 - pst(2,198)= 0 - pst(1,199)= 0 - pst(2,199)= 0 - pst(1,200)= 0 - pst(2,200)= 0 - pst(1,201)= 0 - pst(2,201)= 0 - pst(1,202)= 0 - pst(2,202)= 0 - pst(1,203)= 0 - pst(2,203)= 0 - pst(1,204)= 0 - pst(2,204)= 0 - pst(1,205)= 0 - pst(2,205)= 0 - pst(1,206)= 0 - pst(2,206)= 0 - pst(1,207)= 0 - pst(2,207)= 0 - pst(1,208)= 0 - pst(2,208)= 0 - pst(1,209)= 0 - pst(2,209)= 0 - pst(1,210)= 0 - pst(2,210)= 0 - pst(1,211)= 0 - pst(2,211)= 0 - pst(1,212)= 0 - pst(2,212)= 0 - pst(1,213)= 0 - pst(2,213)= 0 - pst(1,214)= 0 - pst(2,214)= 0 - pst(1,215)= 0 - pst(2,215)= 0 - pst(1,216)= 0 - pst(2,216)= 0 - pst(1,217)= 0 - pst(2,217)= 0 - pst(1,218)= 0 - pst(2,218)= 0 - pst(1,219)= 0 - pst(2,219)= 0 - pst(1,220)= 0 - pst(2,220)= 0 - pst(1,221)= 0 - pst(2,221)= 0 - pst(1,222)= 0 - pst(2,222)= 0 - pst(1,223)= 0 - pst(2,223)= 0 - pst(1,224)= 0 - pst(2,224)= 0 - pst(1,225)= 0 - pst(2,225)= 0 - pst(1,226)= 0 - pst(2,226)= 0 - pst(1,227)= 0 - pst(2,227)= 0 - pst(1,228)= 0 - pst(2,228)= 0 - pst(1,229)= 0 - pst(2,229)= 0 - pst(1,230)= 0 - pst(2,230)= 0 - pst(1,231)= 0 - pst(2,231)= 0 - pst(1,232)= 0 - pst(2,232)= 0 - pst(1,233)= 0 - pst(2,233)= 0 - pst(1,234)= 0 - pst(2,234)= 0 - pst(1,235)= 0 - pst(2,235)= 0 - pst(1,236)= 0 - pst(2,236)= 0 - pst(1,237)= 0 - pst(2,237)= 0 - pst(1,238)= 0 - pst(2,238)= 0 - pst(1,239)= 0 - pst(2,239)= 0 - pst(1,240)= 0 - pst(2,240)= 0 - pst(1,241)= 0 - pst(2,241)= 0 - pst(1,242)= 0 - pst(2,242)= 0 - pst(1,243)= 0 - pst(2,243)= 0 - pst(1,244)= 0 - pst(2,244)= 0 - pst(1,245)= 0 - pst(2,245)= 0 - pst(1,246)= 0 - pst(2,246)= 0 - pst(1,247)= 0 - pst(2,247)= 0 - pst(1,248)= 0 - pst(2,248)= 0 - pst(1,249)= 0 - pst(2,249)= 0 - pst(1,250)= 0 - pst(2,250)= 0 - pst(1,251)= 0 - pst(2,251)= 0 - pst(1,252)= 0 - pst(2,252)= 0 - pst(1,253)= 0 - pst(2,253)= 0 - pst(1,254)= 0 - pst(2,254)= 0 - pst(1,255)= 0 - pst(2,255)= 0 - pst(1,256)= 0 - pst(2,256)= 0 - pst(1,257)= 0 - pst(2,257)= 0 - pst(1,258)= 0 - pst(2,258)= 0 - pst(1,259)= 0 - pst(2,259)= 0 - pst(1,260)= 0 - pst(2,260)= 0 - pst(1,261)= 0 - pst(2,261)= 0 - pst(1,262)= 0 - pst(2,262)= 0 - pst(1,263)= 0 - pst(2,263)= 0 - pst(1,264)= 0 - pst(2,264)= 0 - pst(1,265)= 0 - pst(2,265)= 0 - pst(1,266)= 0 - pst(2,266)= 0 - pst(1,267)= 0 - pst(2,267)= 0 - pst(1,268)= 0 - pst(2,268)= 0 - pst(1,269)= 0 - pst(2,269)= 0 - pst(1,270)= 0 - pst(2,270)= 0 - pst(1,271)= 0 - pst(2,271)= 0 - pst(1,272)= 0 - pst(2,272)= 0 - pst(1,273)= 0 - pst(2,273)= 0 - pst(1,274)= 0 - pst(2,274)= 0 - pst(1,275)= 0 - pst(2,275)= 0 - pst(1,276)= 0 - pst(2,276)= 0 - pst(1,277)= 0 - pst(2,277)= 0 - pst(1,278)= 0 - pst(2,278)= 0 - pst(1,279)= 0 - pst(2,279)= 0 - pst(1,280)= 0 - pst(2,280)= 0 - pst(1,281)= 0 - pst(2,281)= 0 - pst(1,282)= 0 - pst(2,282)= 0 - pst(1,283)= 0 - pst(2,283)= 0 - pst(1,284)= 0 - pst(2,284)= 0 - pst(1,285)= 0 - pst(2,285)= 0 - pst(1,286)= 0 - pst(2,286)= 0 - pst(1,287)= 0 - pst(2,287)= 0 - pst(1,288)= 0 - pst(2,288)= 0 - pst(1,289)= 0 - pst(2,289)= 0 - pst(1,290)= 0 - pst(2,290)= 0 - pst(1,291)= 0 - pst(2,291)= 0 - pst(1,292)= 0 - pst(2,292)= 0 - pst(1,293)= 0 - pst(2,293)= 0 - pst(1,294)= 0 - pst(2,294)= 0 - pst(1,295)= 0 - pst(2,295)= 0 - pst(1,296)= 0 - pst(2,296)= 0 - pst(1,297)= 0 - pst(2,297)= 0 - pst(1,298)= 0 - pst(2,298)= 0 - pst(1,299)= 0 - pst(2,299)= 0 - pst(1,300)= 0 - pst(2,300)= 0 - pst(1,301)= 0 - pst(2,301)= 0 - pst(1,302)= 0 - pst(2,302)= 0 - pst(1,303)= 0 - pst(2,303)= 0 - pst(1,304)= 0 - pst(2,304)= 0 - pst(1,305)= 0 - pst(2,305)= 0 - pst(1,306)= 0 - pst(2,306)= 0 - pst(1,307)= 0 - pst(2,307)= 0 - pst(1,308)= 0 - pst(2,308)= 0 - pst(1,309)= 0 - pst(2,309)= 0 - pst(1,310)= 0 - pst(2,310)= 0 - pst(1,311)= 0 - pst(2,311)= 0 - pst(1,312)= 0 - pst(2,312)= 0 - pst(1,313)= 0 - pst(2,313)= 0 - pst(1,314)= 0 - pst(2,314)= 0 - pst(1,315)= 0 - pst(2,315)= 0 - pst(1,316)= 0 - pst(2,316)= 0 - pst(1,317)= 0 - pst(2,317)= 0 - pst(1,318)= 0 - pst(2,318)= 0 - pst(1,319)= 0 - pst(2,319)= 0 - pst(1,320)= 0 - pst(2,320)= 0 - pst(1,321)= 0 - pst(2,321)= 0 - pst(1,322)= 0 - pst(2,322)= 0 - pst(1,323)= 0 - pst(2,323)= 0 - pst(1,324)= 0 - pst(2,324)= 0 - pst(1,325)= 0 - pst(2,325)= 0 - pst(1,326)= 0 - pst(2,326)= 0 - pst(1,327)= 0 - pst(2,327)= 0 - pst(1,328)= 0 - pst(2,328)= 0 - pst(1,329)= 0 - pst(2,329)= 0 - pst(1,330)= 0 - pst(2,330)= 0 - pst(1,331)= 0 - pst(2,331)= 0 - pst(1,332)= 0 - pst(2,332)= 0 - pst(1,333)= 0 - pst(2,333)= 0 - pst(1,334)= 0 - pst(2,334)= 0 - pst(1,335)= 0 - pst(2,335)= 0 - pst(1,336)= 0 - pst(2,336)= 0 - pst(1,337)= 0 - pst(2,337)= 0 - pst(1,338)= 0 - pst(2,338)= 0 - pst(1,339)= 0 - pst(2,339)= 0 - pst(1,340)= 0 - pst(2,340)= 0 - pst(1,341)= 0 - pst(2,341)= 0 - pst(1,342)= 0 - pst(2,342)= 0 - pst(1,343)= 0 - pst(2,343)= 0 - pst(1,344)= 0 - pst(2,344)= 0 - pst(1,345)= 0 - pst(2,345)= 0 - pst(1,346)= 0 - pst(2,346)= 0 - pst(1,347)= 0 - pst(2,347)= 0 - pst(1,348)= 0 - pst(2,348)= 0 - pst(1,349)= 0 - pst(2,349)= 0 - pst(1,350)= 0 - pst(2,350)= 0 - pst(1,351)= 0 - pst(2,351)= 0 - pst(1,352)= 0 - pst(2,352)= 0 - pst(1,353)= 0 - pst(2,353)= 0 - pst(1,354)= 0 - pst(2,354)= 0 - pst(1,355)= 0 - pst(2,355)= 0 - pst(1,356)= 0 - pst(2,356)= 0 - pst(1,357)= 0 - pst(2,357)= 0 - pst(1,358)= 0 - pst(2,358)= 0 - pst(1,359)= 0 - pst(2,359)= 0 - pst(1,360)= 0 - pst(2,360)= 0 - pst(1,361)= 0 - pst(2,361)= 0 - pst(1,362)= 0 - pst(2,362)= 0 - pst(1,363)= 0 - pst(2,363)= 0 - pst(1,364)= 0 - pst(2,364)= 0 - pst(1,365)= 0 - pst(2,365)= 0 - pst(1,366)= 0 - pst(2,366)= 0 - pst(1,367)= 0 - pst(2,367)= 0 - pst(1,368)= 0 - pst(2,368)= 0 - pst(1,369)= 0 - pst(2,369)= 0 - pst(1,370)= 0 - pst(2,370)= 0 - pst(1,371)= 0 - pst(2,371)= 0 - pst(1,372)= 0 - pst(2,372)= 0 - pst(1,373)= 0 - pst(2,373)= 0 - pst(1,374)= 0 - pst(2,374)= 0 - pst(1,375)= 0 - pst(2,375)= 0 - pst(1,376)= 0 - pst(2,376)= 0 - pst(1,377)= 0 - pst(2,377)= 0 - pst(1,378)= 0 - pst(2,378)= 0 - pst(1,379)= 0 - pst(2,379)= 0 - pst(1,380)= 0 - pst(2,380)= 0 - pst(1,381)= 0 - pst(2,381)= 0 - pst(1,382)= 0 - pst(2,382)= 0 - pst(1,383)= 0 - pst(2,383)= 0 - pst(1,384)= 0 - pst(2,384)= 0 - pst(1,385)= 0 - pst(2,385)= 0 - pst(1,386)= 0 - pst(2,386)= 0 - pst(1,387)= 0 - pst(2,387)= 0 - pst(1,388)= 0 - pst(2,388)= 0 - pst(1,389)= 0 - pst(2,389)= 0 - pst(1,390)= 0 - pst(2,390)= 0 - pst(1,391)= 0 - pst(2,391)= 0 - pst(1,392)= 0 - pst(2,392)= 0 - pst(1,393)= 0 - pst(2,393)= 0 - pst(1,394)= 0 - pst(2,394)= 0 - pst(1,395)= 0 - pst(2,395)= 0 - pst(1,396)= 0 - pst(2,396)= 0 - pst(1,397)= 0 - pst(2,397)= 0 - pst(1,398)= 0 - pst(2,398)= 0 - pst(1,399)= 0 - pst(2,399)= 0 - pst(1,400)= 0 - pst(2,400)= 0 -End SUBROUTINE init_dip_planar_data -End Module dip_param diff --git a/src/nn_params.f90 b/src/nn_params.f90 index 6cce35f..3382053 100644 --- a/src/nn_params.f90 +++ b/src/nn_params.f90 @@ -1,7 +1,6 @@ module nn_params - use accuracy_constants + use accuracy_constants, only: idp,dp implicit none - private :: dp, idp ! module to hold the parameters ! to replace nnparams.incl ! define all the parameter @@ -107,7 +106,7 @@ module nn_params character(len=32),parameter:: nnrecfile='../nnfits/record' character(len=16),parameter:: nnfdir='../nnfits/',nnsdir='../scans/' character(len=8), parameter:: nnldir='../logs/' - character(len=8), parameter::nntag='' + character(len=8), parameter:: nntag='' character(len=16),parameter:: prim_tag=' Time-stamp: " "' character(len=16),parameter:: lrfmt='(ES20.12)',lifmt='(I12)' integer(idp),parameter :: iout=6,perfunit=700,nnunit=800,fitunit=8000