Changeset ffd2d46


Ignore:
Timestamp:
11/19/09 11:29:13 (14 years ago)
Author:
baerbaer <baerbaer@…>
Branches:
master
Children:
cb47b9c
Parents:
8d0e6d6
Message:

Added bindings to setvar and enysol.

For the trajectory analysis, I want to be able to set the variables and re-
construct the cartesian coordinates without calculating the energy. That
requires access to setvar.
I added enysol to get the per-residue accessible surface area.

git-svn-id: ​svn+ssh://svn.berlios.de/svnroot/repos/smmp/trunk@24 26dc1dd8-5c4e-0410-9ffe-d298b4865968

File:
1 edited

Legend:

Unmodified
Added
Removed

  • smmp.pyf

    r8d0e6d6 rffd2d46  
    99    end interface metropolis_user_interface
    1010end python module metropolis__user__routines
     11
    1112python module smmp ! in
    1213    interface  ! in :smmp
     14        block data updtchs ! in :smmp:metropolis.f
     15            integer optional,dimension(5) :: ncalls=5*0
     16            integer optional,dimension(5) :: nacalls=5*0
     17            double precision optional :: up2bmax=4.0d0
     18            double precision optional :: up2bmin=0.5d0
     19            common /updstats/ ncalls,nacalls
     20            common /updtparam/ up2bmax,up2bmin
     21        end block data updtchs
    1322        subroutine metropolis(eol1,acz,dummy) ! in :smmp:metropolis.f
    1423            use metropolis__user__routines
    … …  
    370379        end subroutine metropolis
    371380        function energy() ! in :smmp:energy.f
    372             real*8 :: vdvol
    373             real*8 :: asa
    374             real*8 :: asap
    375             real*8 :: asah
    376             real*8 dimension(2600) :: cgat
    377             real*8 dimension(2600) :: xbaat
    378             real*8 dimension(2600) :: ybaat
    379             real*8 dimension(2600) :: zbaat
    380             real*8 dimension(2600) :: baat
    381             real*8 dimension(2600) :: snbaat
    382             real*8 dimension(2600) :: csbaat
    383             real*8 dimension(2600) :: xtoat
    384             real*8 dimension(2600) :: ytoat
    385             real*8 dimension(2600) :: ztoat
    386             real*8 dimension(2600) :: toat
    387             real*8 dimension(2600) :: sntoat
    388             real*8 dimension(2600) :: cstoat
    389             real*8 dimension(2600) :: blat
    390             real*8 dimension(2602) :: xat
    391             real*8 dimension(2602) :: yat
    392             real*8 dimension(2602) :: zat
    393             integer*4 dimension(100,100) :: ijcont
    394             integer*4 dimension(100) :: ind_alf
     381            double precision :: vdvol
     382            double precision :: asa
     383            double precision :: asap
     384            double precision :: asah
     385            integer dimension(2600) :: cgat
     386            double precision dimension(2600) :: xbaat
     387            double precision dimension(2600) :: ybaat
     388            double precision dimension(2600) :: zbaat
     389            double precision dimension(2600) :: baat
     390            double precision dimension(2600) :: snbaat
     391            double precision dimension(2600) :: csbaat
     392            double precision dimension(2600) :: xtoat
     393            double precision dimension(2600) :: ytoat
     394            double precision dimension(2600) :: ztoat
     395            double precision dimension(2600) :: toat
     396            double precision dimension(2600) :: sntoat
     397            double precision dimension(2600) :: cstoat
     398            double precision dimension(2600) :: blat
     399            double precision dimension(2602) :: xat
     400            double precision dimension(2602) :: yat
     401            double precision dimension(2602) :: zat
     402            integer dimension(100,100) :: ijcont
     403            integer dimension(100) :: ind_alf
    395404            logical dimension(18) :: do_s
    396405            logical dimension(18) :: ac_s
    397406            character dimension(500,4) :: nmrt
    398407            character dimension(1000,3) :: nmvrrt
    399             integer*4 :: nvr
    400             real*8 dimension(9,18) :: coef_sl
    401             real*8 dimension(9,18) :: rad_vdw
    402             real*8 dimension(100) :: surfres
    403             integer*4 :: ntyhb
    404             integer*4 dimension(100) :: ixtyhb
    405             integer*4 dimension(100) :: nutyhb
    406             integer*4 dimension(10,10) :: mmhb
    407             character dimension(4,2600) :: nmat
    408             integer*4 :: lunlib
    409             integer*4 :: lunseq
    410             integer*4 :: lunchg
    411             integer*4 :: lunvar
    412             integer*4 :: lunrst
     408            integer :: nvr
     409            double precision dimension(9,18) :: coef_sl
     410            double precision dimension(9,18) :: rad_vdw
     411            double precision dimension(100) :: surfres
     412            integer :: ntyhb
     413            integer dimension(100) :: ixtyhb
     414            integer dimension(100) :: nutyhb
     415            integer dimension(10,10) :: mmhb
     416            character dimension(2600,4) :: nmat
     417            integer :: lunlib
     418            integer :: lunseq
     419            integer :: lunchg
     420            integer :: lunvar
     421            integer :: lunrst
    413422            logical dimension(800) :: isrfvr
    414             real*8 dimension(500) :: pbrt
    415             real*8 dimension(1000) :: vuvrrt
    416             real*8 dimension(1000) :: dvvrrt
    417             integer*4 dimension(2600) :: ityat
    418             integer*4 dimension(2600) :: iowat
    419             integer*4 dimension(2600) :: iyowat
    420             integer*4 dimension(2600) :: nbdat
    421             integer*4 dimension(3,2600) :: ibdat
    422             integer*4 dimension(3,2600) :: iybdat
    423             integer*4 dimension(2600) :: ixmsat
    424             real*8 :: ehm
    425             real*8 dimension(18) :: atpl
    426             real*8 dimension(18) :: efel
    427             real*8 dimension(18) :: emin
    428             real*8 dimension(18) :: rmin
    429             real*8 dimension(4,6) :: chb_s
    430             real*8 dimension(4,6) :: ahb_s
    431             real*8 dimension(19) :: e0to_s
    432             real*8 dimension(19) :: sgto_s
    433             real*8 dimension(19) :: rnto_s
    434             real*8 :: eps_s
    435             real*8 dimension(2000,3) :: spoint
     423            double precision dimension(500) :: pbrt
     424            double precision dimension(1000) :: vuvrrt
     425            double precision dimension(1000) :: dvvrrt
     426            integer dimension(2600) :: ityat
     427            integer dimension(2600) :: iowat
     428            integer dimension(2600) :: iyowat
     429            integer dimension(2600) :: nbdat
     430            integer dimension(3,2600) :: ibdat
     431            integer dimension(3,2600) :: iybdat
     432            integer dimension(2600) :: ixmsat
     433            double precision :: ehm
     434            double precision dimension(18) :: atpl
     435            double precision dimension(18) :: efel
     436            double precision dimension(18) :: emin
     437            double precision dimension(18) :: rmin
     438            double precision dimension(4,6) :: chb_s
     439            double precision dimension(4,6) :: ahb_s
     440            double precision dimension(19) :: e0to_s
     441            double precision dimension(19) :: sgto_s
     442            double precision dimension(19) :: rnto_s
     443            double precision :: eps_s
     444            double precision dimension(2000,3) :: spoint
    436445            logical dimension(18) :: do_f
    437446            logical dimension(18) :: ac_f
    … …  
    441450            character*80 :: varfil
    442451            character*80 :: rstfil
    443             integer*4 :: ntlml
    444             integer*4 dimension(10) :: irsml1
    445             integer*4 dimension(10) :: irsml2
    446             integer*4 dimension(10) :: ivrml1
    447             integer*4 dimension(10) :: nvrml
    448             integer*4 dimension(10) :: imsml1
    449             integer*4 dimension(10) :: nmsml
    450             integer*4 dimension(10) :: iadml1
    451             integer*4 dimension(10) :: nadml
    452             integer*4 dimension(3,10) :: ixrfpt
    453             integer*4 dimension(2600) :: ixatp
    454             integer*4 :: ireg
    455             real*8 dimension(100) :: blath
    456             real*8 dimension(100) :: baath
    457             real*8 dimension(100) :: toath
    458             real*8 dimension(100) :: cgath
    459             integer*4 dimension(100,100) :: iref
    460             integer*4 :: nci
     452            integer :: ntlml
     453            integer dimension(10) :: irsml1
     454            integer dimension(10) :: irsml2
     455            integer dimension(10) :: ivrml1
     456            integer dimension(10) :: nvrml
     457            integer dimension(10) :: imsml1
     458            integer dimension(10) :: nmsml
     459            integer dimension(10) :: iadml1
     460            integer dimension(10) :: nadml
     461            integer dimension(3,10) :: ixrfpt
     462            integer dimension(2600) :: ixatp
     463            integer :: ireg
     464            double precision dimension(100) :: blath
     465            double precision dimension(100) :: baath
     466            double precision dimension(100) :: toath
     467            double precision dimension(100) :: cgath
     468            integer dimension(100,100) :: iref
     469            integer :: nci
    461470            logical :: flex
    462471            logical :: tesgrd
    463472            logical :: sh2
    464473            logical :: epsd
    465             integer*4 :: ientyp
    466             real*8 :: rgyh
    467             real*8 :: rgyp
    468             integer*4 :: idloa
    469             integer*4 :: idloz
    470             integer*4 :: idupa
    471             integer*4 :: idupz
     474            integer :: ientyp
     475            double precision :: rgyh
     476            double precision :: rgyp
     477            integer :: idloa
     478            integer :: idloz
     479            integer :: idupa
     480            integer :: idupz
    472481            integer :: myrank
    473482            integer :: no
    … …  
    476485            character dimension(100,4) :: nmath
    477486            character dimension(100,3) :: nmvrh
    478             integer*4 dimension(100) :: ityath
    479             integer*4 dimension(100) :: iowath
    480             integer*4 dimension(100) :: iyowath
    481             integer*4 dimension(100) :: nbdath
    482             integer*4 dimension(3,100) :: ibdath
    483             integer*4 dimension(3,100) :: iybdath
    484             integer*4 dimension(100) :: ityvrh
    485             integer*4 dimension(100) :: iclvrh
    486             integer*4 dimension(100) :: iatvrh
     487            integer dimension(100) :: ityath
     488            integer dimension(100) :: iowath
     489            integer dimension(100) :: iyowath
     490            integer dimension(100) :: nbdath
     491            integer dimension(3,100) :: ibdath
     492            integer dimension(3,100) :: iybdath
     493            integer dimension(100) :: ityvrh
     494            integer dimension(100) :: iclvrh
     495            integer dimension(100) :: iatvrh
    487496            character dimension(100,4) :: seq
    488             real*8 dimension(2600) :: rvdw
    489             real*8 dimension(2600) :: sigma
    490             real*8 dimension(2600,3) :: gradan
    491             integer*4 dimension(18,18) :: ihbty
    492             integer*4 :: npnt
     497            double precision dimension(2600) :: rvdw
     498            double precision dimension(2600) :: sigma
     499            double precision dimension(2600,3) :: gradan
     500            integer dimension(18,18) :: ihbty
     501            integer :: npnt
    493502            character dimension(10,80) :: nmml
    494             real*8 dimension(18,18) :: cij
    495             real*8 dimension(18,18) :: aij
    496             real*8 dimension(18,18) :: a14
    497             real*8 dimension(18,18) :: chb
    498             real*8 dimension(18,18) :: ahb
    499             real*8 dimension(19) :: e0to
    500             real*8 dimension(19) :: sgto
    501             real*8 dimension(19) :: rnto
    502             real*8 dimension(19) :: esnto
    503             real*8 :: conv
    504             real*8 :: plt
    505             real*8 :: slp
    506             real*8 :: cohb
    507             integer*4 dimension(100) :: iatrs1
    508             integer*4 dimension(100) :: iatrs2
    509             integer*4 dimension(100) :: ixatrs
    510             integer*4 dimension(100) :: ivrrs1
    511             integer*4 dimension(100) :: nvrrs
    512             integer*4 :: ntlrt
    513             integer*4 :: ntlsu
    514             integer*4 dimension(500) :: i1vrrt
    515             integer*4 dimension(500) :: i2vrrt
    516             integer*4 dimension(4800) :: iprtsu
    517             integer*4 dimension(800) :: i1rtsu
    518             integer*4 dimension(800) :: nrtsu
    519             integer*4 dimension(800) :: i1vrsu
    520             integer*4 dimension(800) :: i2vrsu
    521             integer*4 dimension(800) :: ipvrsu
    522             real*8 dimension(3,10) :: rfpt
    523             real*8 dimension(6,10) :: gbpr
    524             real*8 dimension(3,10) :: xrfax
    525             real*8 dimension(3,10) :: yrfax
    526             real*8 dimension(3,10) :: zrfax
     503            double precision dimension(18,18) :: cij
     504            double precision dimension(18,18) :: aij
     505            double precision dimension(18,18) :: a14
     506            double precision dimension(18,18) :: chb
     507            double precision dimension(18,18) :: ahb
     508            double precision dimension(19) :: e0to
     509            double precision dimension(19) :: sgto
     510            double precision dimension(19) :: rnto
     511            double precision dimension(19) :: esnto
     512            double precision :: conv
     513            double precision :: plt
     514            double precision :: slp
     515            double precision :: cohb
     516            integer dimension(100) :: iatrs1
     517            integer dimension(100) :: iatrs2
     518            integer dimension(100) :: ixatrs
     519            integer dimension(100) :: ivrrs1
     520            integer dimension(100) :: nvrrs
     521            integer :: ntlrt
     522            integer :: ntlsu
     523            integer dimension(500) :: i1vrrt
     524            integer dimension(500) :: i2vrrt
     525            integer dimension(4800) :: iprtsu
     526            integer dimension(800) :: i1rtsu
     527            integer dimension(800) :: nrtsu
     528            integer dimension(800) :: i1vrsu
     529            integer dimension(800) :: i2vrsu
     530            integer dimension(800) :: ipvrsu
     531            double precision dimension(3,10) :: rfpt
     532            double precision dimension(6,10) :: gbpr
     533            double precision dimension(3,10) :: xrfax
     534            double precision dimension(3,10) :: yrfax
     535            double precision dimension(3,10) :: zrfax
    527536            logical dimension(800) :: fxvr
    528             real*8 :: eyel
    529             real*8 :: eyvw
    530             real*8 :: eyhb
    531             real*8 :: eyvr
    532             real*8 :: eysm
    533             real*8 :: eysl
    534             real*8 :: eyrg
    535             real*8 :: eyslh
    536             real*8 :: eyslp
    537             real*8 :: eyab
    538             real*8 :: eysmi
    539             real*8 :: eyhbi
    540             real*8 :: eyeli
    541             real*8 :: eyvwi
    542             real*8 dimension(800) :: gdeyvr
    543             real*8 dimension(800) :: gdeyrg
    544             real*8 dimension(800) :: gdeysl
    545             real*8 dimension(60) :: gdeygb
    546             real*8 :: wtey
    547             real*8 :: wtrg
    548             integer*4 dimension(800) :: iatvr
    549             integer*4 dimension(800) :: ityvr
    550             integer*4 dimension(800) :: iclvr
    551             integer*4 dimension(800) :: iorvr
    552             integer*4 dimension(800) :: imsvr1
    553             integer*4 dimension(800) :: imsvr2
    554             integer*4 dimension(2400) :: latms1
    555             integer*4 dimension(2400) :: latms2
    556             integer*4 dimension(800) :: iadvr1
    557             integer*4 dimension(800) :: iadvr2
    558             integer*4 dimension(800) :: ladvr
    559             integer*4 dimension(800) :: idvr
     537            double precision :: eyel
     538            double precision :: eyvw
     539            double precision :: eyhb
     540            double precision :: eyvr
     541            double precision :: eysm
     542            double precision :: eysl
     543            double precision :: eyrg
     544            double precision :: eyslh
     545            double precision :: eyslp
     546            double precision :: eyab
     547            double precision :: eysmi
     548            double precision :: eyhbi
     549            double precision :: eyeli
     550            double precision :: eyvwi
     551            double precision dimension(800) :: gdeyvr
     552            double precision dimension(800) :: gdeyrg
     553            double precision dimension(800) :: gdeysl
     554            double precision dimension(60) :: gdeygb
     555            double precision :: wtey
     556            double precision :: wtrg
     557            integer dimension(800) :: iatvr
     558            integer dimension(800) :: ityvr
     559            integer dimension(800) :: iclvr
     560            integer dimension(800) :: iorvr
     561            integer dimension(800) :: imsvr1
     562            integer dimension(800) :: imsvr2
     563            integer dimension(2400) :: latms1
     564            integer dimension(2400) :: latms2
     565            integer dimension(800) :: iadvr1
     566            integer dimension(800) :: iadvr2
     567            integer dimension(800) :: ladvr
     568            integer dimension(800) :: idvr
    560569            integer :: enysolct
    561             character dimension(3,800) :: nmvr
    562             real*8 :: boxsize
     570            character dimension(800,3) :: nmvr
     571            double precision :: boxsize
    563572            integer :: seed
    564             character*100 :: zimm
    565             integer*4 :: itysol
     573            character*mxrs :: zimm
     574            integer :: itysol
    566575            logical :: isolscl
    567             real*8 dimension(100) :: rsstrg
     576            double precision dimension(100) :: rsstrg
    568577            character dimension(35,4) :: rsnmcd
    569578            character dimension(35) :: onltcd
    … …  
    571580            integer :: upchswitch
    572581            double precision :: bgsprob
    573             integer*4 dimension(10) :: nvwml
    574             integer*4 dimension(10) :: ivwml1
    575             integer*4 dimension(10) :: n14ml
    576             integer*4 dimension(10) :: i14ml1
    577             integer*4 dimension(2600) :: ivwat1
    578             integer*4 dimension(2600) :: ivwat2
    579             integer*4 dimension(2600) :: i14at1
    580             integer*4 dimension(2600) :: i14at2
    581             integer*4 dimension(10400) :: lvwat1
    582             integer*4 dimension(10400) :: lvwat2
    583             integer*4 dimension(10400) :: l14at
    584             integer*4 dimension(10400) :: ixatvw
    585             integer*4 dimension(10400) :: ixat14
    586             real*8 dimension(800) :: olvlvr
    587             real*8 dimension(800) :: vlvr
    588             real*8 dimension(800) :: axvr
    589             real*8 :: beta
    590             real*8 dimension(18,18) :: c_f
    591             real*8 dimension(18,18) :: a_f
    592             real*8 dimension(4,6) :: chb_f
    593             real*8 dimension(4,6) :: ahb_f
    594             real*8 dimension(19) :: e0to_f
    595             real*8 dimension(19) :: sgto_f
    596             real*8 dimension(19) :: rnto_f
    597             real*8 :: plt_f
    598             real*8 :: slp_f
    599             real*8 :: cohb_f
     582            integer dimension(10) :: nvwml
     583            integer dimension(10) :: ivwml1
     584            integer dimension(10) :: n14ml
     585            integer dimension(10) :: i14ml1
     586            integer dimension(2600) :: ivwat1
     587            integer dimension(2600) :: ivwat2
     588            integer dimension(2600) :: i14at1
     589            integer dimension(2600) :: i14at2
     590            integer dimension(10400) :: lvwat1
     591            integer dimension(10400) :: lvwat2
     592            integer dimension(10400) :: l14at
     593            integer dimension(10400) :: ixatvw
     594            integer dimension(10400) :: ixat14
     595            double precision dimension(800) :: olvlvr
     596            double precision dimension(800) :: vlvr
     597            double precision dimension(800) :: axvr
     598            double precision :: beta
     599            double precision dimension(18,18) :: c_f
     600            double precision dimension(18,18) :: a_f
     601            double precision dimension(4,6) :: chb_f
     602            double precision dimension(4,6) :: ahb_f
     603            double precision dimension(19) :: e0to_f
     604            double precision dimension(19) :: sgto_f
     605            double precision dimension(19) :: rnto_f
     606            double precision :: plt_f
     607            double precision :: slp_f
     608            double precision :: cohb_f
    600609            real*8 :: energy
    601610            common /v_sol/ vdvol,asa,asap,asah
    … …  
    653662            common /flex_r/ c_f,a_f,chb_f,ahb_f,e0to_f,sgto_f,rnto_f,plt_f,slp_f,cohb_f
    654663        end function energy
    655         subroutine minim(imin,maxit,eps) ! in :smmp:minim.f
    656             integer*4 intent(in) :: imin
    657             integer*4 intent(in) :: maxit
    658             real*8 intent(in) :: eps
    659             real*8 :: vdvol
    660             real*8 :: asa
    661             real*8 :: asap
    662             real*8 :: asah
    663             real*8 dimension(2600) :: cgat
    664             real*8 dimension(2600) :: xbaat
    665             real*8 dimension(2600) :: ybaat
    666             real*8 dimension(2600) :: zbaat
    667             real*8 dimension(2600) :: baat
    668             real*8 dimension(2600) :: snbaat
    669             real*8 dimension(2600) :: csbaat
    670             real*8 dimension(2600) :: xtoat
    671             real*8 dimension(2600) :: ytoat
    672             real*8 dimension(2600) :: ztoat
    673             real*8 dimension(2600) :: toat
    674             real*8 dimension(2600) :: sntoat
    675             real*8 dimension(2600) :: cstoat
    676             real*8 dimension(2600) :: blat
    677             real*8 dimension(2602) :: xat
    678             real*8 dimension(2602) :: yat
    679             real*8 dimension(2602) :: zat
    680             integer*4 dimension(100,100) :: ijcont
    681             integer*4 dimension(100) :: ind_alf
     664        function enysol(nmol) ! in :smmp:enysol.f
     665            integer optional, intent(in):: nmol=0
     666            double precision :: vdvol
     667            double precision :: asa
     668            double precision :: asap
     669            double precision :: asah
     670            integer dimension(2600) :: cgat
     671            double precision dimension(2600) :: xbaat
     672            double precision dimension(2600) :: ybaat
     673            double precision dimension(2600) :: zbaat
     674            double precision dimension(2600) :: baat
     675            double precision dimension(2600) :: snbaat
     676            double precision dimension(2600) :: csbaat
     677            double precision dimension(2600) :: xtoat
     678            double precision dimension(2600) :: ytoat
     679            double precision dimension(2600) :: ztoat
     680            double precision dimension(2600) :: toat
     681            double precision dimension(2600) :: sntoat
     682            double precision dimension(2600) :: cstoat
     683            double precision dimension(2600) :: blat
     684            double precision dimension(2602) :: xat
     685            double precision dimension(2602) :: yat
     686            double precision dimension(2602) :: zat
     687            integer dimension(100,100) :: ijcont
     688            integer dimension(100) :: ind_alf
    682689            logical dimension(18) :: do_s
    683690            logical dimension(18) :: ac_s
    684691            character dimension(500,4) :: nmrt
    685692            character dimension(1000,3) :: nmvrrt
    686             integer*4 :: nvr
    687             real*8 dimension(9,18) :: coef_sl
    688             real*8 dimension(9,18) :: rad_vdw
    689             real*8 dimension(100) :: surfres
    690             integer*4 :: ntyhb
    691             integer*4 dimension(100) :: ixtyhb
    692             integer*4 dimension(100) :: nutyhb
    693             integer*4 dimension(10,10) :: mmhb
    694             character dimension(4,2600) :: nmat
    695             integer*4 :: lunlib
    696             integer*4 :: lunseq
    697             integer*4 :: lunchg
    698             integer*4 :: lunvar
    699             integer*4 :: lunrst
     693            integer :: nvr
     694            double precision dimension(9,18) :: coef_sl
     695            double precision dimension(9,18) :: rad_vdw
     696            double precision dimension(100) :: surfres
     697            integer :: ntyhb
     698            integer dimension(100) :: ixtyhb
     699            integer dimension(100) :: nutyhb
     700            integer dimension(10,10) :: mmhb
     701            character dimension(2600,4) :: nmat
     702            integer :: lunlib
     703            integer :: lunseq
     704            integer :: lunchg
     705            integer :: lunvar
     706            integer :: lunrst
    700707            logical dimension(800) :: isrfvr
    701             real*8 dimension(500) :: pbrt
    702             real*8 dimension(1000) :: vuvrrt
    703             real*8 dimension(1000) :: dvvrrt
    704             integer*4 dimension(2600) :: ityat
    705             integer*4 dimension(2600) :: iowat
    706             integer*4 dimension(2600) :: iyowat
    707             integer*4 dimension(2600) :: nbdat
    708             integer*4 dimension(3,2600) :: ibdat
    709             integer*4 dimension(3,2600) :: iybdat
    710             integer*4 dimension(2600) :: ixmsat
    711             real*8 :: ehm
    712             real*8 dimension(18) :: atpl
    713             real*8 dimension(18) :: efel
    714             real*8 dimension(18) :: emin
    715             real*8 dimension(18) :: rmin
    716             real*8 dimension(4,6) :: chb_s
    717             real*8 dimension(4,6) :: ahb_s
    718             real*8 dimension(19) :: e0to_s
    719             real*8 dimension(19) :: sgto_s
    720             real*8 dimension(19) :: rnto_s
    721             real*8 :: eps_s
    722             real*8 dimension(2000,3) :: spoint
     708            double precision dimension(500) :: pbrt
     709            double precision dimension(1000) :: vuvrrt
     710            double precision dimension(1000) :: dvvrrt
     711            integer dimension(2600) :: ityat
     712            integer dimension(2600) :: iowat
     713            integer dimension(2600) :: iyowat
     714            integer dimension(2600) :: nbdat
     715            integer dimension(3,2600) :: ibdat
     716            integer dimension(3,2600) :: iybdat
     717            integer dimension(2600) :: ixmsat
     718            double precision :: ehm
     719            double precision dimension(18) :: atpl
     720            double precision dimension(18) :: efel
     721            double precision dimension(18) :: emin
     722            double precision dimension(18) :: rmin
     723            double precision dimension(4,6) :: chb_s
     724            double precision dimension(4,6) :: ahb_s
     725            double precision dimension(19) :: e0to_s
     726            double precision dimension(19) :: sgto_s
     727            double precision dimension(19) :: rnto_s
     728            double precision :: eps_s
     729            double precision dimension(2000,3) :: spoint
    723730            logical dimension(18) :: do_f
    724731            logical dimension(18) :: ac_f
    … …  
    728735            character*80 :: varfil
    729736            character*80 :: rstfil
    730             integer*4 :: ntlml
    731             integer*4 dimension(10) :: irsml1
    732             integer*4 dimension(10) :: irsml2
    733             integer*4 dimension(10) :: ivrml1
    734             integer*4 dimension(10) :: nvrml
    735             integer*4 dimension(10) :: imsml1
    736             integer*4 dimension(10) :: nmsml
    737             integer*4 dimension(10) :: iadml1
    738             integer*4 dimension(10) :: nadml
    739             integer*4 dimension(3,10) :: ixrfpt
    740             integer*4 dimension(2600) :: ixatp
    741             integer*4 :: ireg
    742             real*8 dimension(100) :: blath
    743             real*8 dimension(100) :: baath
    744             real*8 dimension(100) :: toath
    745             real*8 dimension(100) :: cgath
    746             integer*4 dimension(100,100) :: iref
    747             integer*4 :: nci
     737            integer :: ntlml
     738            integer dimension(10) :: irsml1
     739            integer dimension(10) :: irsml2
     740            integer dimension(10) :: ivrml1
     741            integer dimension(10) :: nvrml
     742            integer dimension(10) :: imsml1
     743            integer dimension(10) :: nmsml
     744            integer dimension(10) :: iadml1
     745            integer dimension(10) :: nadml
     746            integer dimension(3,10) :: ixrfpt
     747            integer dimension(2600) :: ixatp
     748            integer :: ireg
     749            double precision dimension(100) :: blath
     750            double precision dimension(100) :: baath
     751            double precision dimension(100) :: toath
     752            double precision dimension(100) :: cgath
     753            integer dimension(100,100) :: iref
     754            integer :: nci
    748755            logical :: flex
    749756            logical :: tesgrd
    750757            logical :: sh2
    751758            logical :: epsd
    752             integer*4 :: ientyp
    753             real*8 :: rgyh
    754             real*8 :: rgyp
    755             integer*4 :: idloa
    756             integer*4 :: idloz
    757             integer*4 :: idupa
    758             integer*4 :: idupz
     759            integer :: ientyp
     760            double precision :: rgyh
     761            double precision :: rgyp
     762            integer :: idloa
     763            integer :: idloz
     764            integer :: idupa
     765            integer :: idupz
    759766            integer :: myrank
    760767            integer :: no
    … …  
    763770            character dimension(100,4) :: nmath
    764771            character dimension(100,3) :: nmvrh
    765             integer*4 dimension(100) :: ityath
    766             integer*4 dimension(100) :: iowath
    767             integer*4 dimension(100) :: iyowath
    768             integer*4 dimension(100) :: nbdath
    769             integer*4 dimension(3,100) :: ibdath
    770             integer*4 dimension(3,100) :: iybdath
    771             integer*4 dimension(100) :: ityvrh
    772             integer*4 dimension(100) :: iclvrh
    773             integer*4 dimension(100) :: iatvrh
     772            integer dimension(100) :: ityath
     773            integer dimension(100) :: iowath
     774            integer dimension(100) :: iyowath
     775            integer dimension(100) :: nbdath
     776            integer dimension(3,100) :: ibdath
     777            integer dimension(3,100) :: iybdath
     778            integer dimension(100) :: ityvrh
     779            integer dimension(100) :: iclvrh
     780            integer dimension(100) :: iatvrh
    774781            character dimension(100,4) :: seq
    775             real*8 dimension(2600) :: rvdw
    776             real*8 dimension(2600) :: sigma
    777             real*8 dimension(2600,3) :: gradan
    778             integer*4 dimension(18,18) :: ihbty
    779             integer*4 :: npnt
     782            double precision dimension(2600) :: rvdw
     783            double precision dimension(2600) :: sigma
     784            double precision dimension(2600,3) :: gradan
     785            integer dimension(18,18) :: ihbty
     786            integer :: npnt
    780787            character dimension(10,80) :: nmml
    781             real*8 dimension(18,18) :: cij
    782             real*8 dimension(18,18) :: aij
    783             real*8 dimension(18,18) :: a14
    784             real*8 dimension(18,18) :: chb
    785             real*8 dimension(18,18) :: ahb
    786             real*8 dimension(19) :: e0to
    787             real*8 dimension(19) :: sgto
    788             real*8 dimension(19) :: rnto
    789             real*8 dimension(19) :: esnto
    790             real*8 :: conv
    791             real*8 :: plt
    792             real*8 :: slp
    793             real*8 :: cohb
    794             integer*4 dimension(100) :: iatrs1
    795             integer*4 dimension(100) :: iatrs2
    796             integer*4 dimension(100) :: ixatrs
    797             integer*4 dimension(100) :: ivrrs1
    798             integer*4 dimension(100) :: nvrrs
    799             integer*4 :: ntlrt
    800             integer*4 :: ntlsu
    801             integer*4 dimension(500) :: i1vrrt
    802             integer*4 dimension(500) :: i2vrrt
    803             integer*4 dimension(4800) :: iprtsu
    804             integer*4 dimension(800) :: i1rtsu
    805             integer*4 dimension(800) :: nrtsu
    806             integer*4 dimension(800) :: i1vrsu
    807             integer*4 dimension(800) :: i2vrsu
    808             integer*4 dimension(800) :: ipvrsu
    809             real*8 dimension(3,10) :: rfpt
    810             real*8 dimension(6,10) :: gbpr
    811             real*8 dimension(3,10) :: xrfax
    812             real*8 dimension(3,10) :: yrfax
    813             real*8 dimension(3,10) :: zrfax
     788            double precision dimension(18,18) :: cij
     789            double precision dimension(18,18) :: aij
     790            double precision dimension(18,18) :: a14
     791            double precision dimension(18,18) :: chb
     792            double precision dimension(18,18) :: ahb
     793            double precision dimension(19) :: e0to
     794            double precision dimension(19) :: sgto
     795            double precision dimension(19) :: rnto
     796            double precision dimension(19) :: esnto
     797            double precision :: conv
     798            double precision :: plt
     799            double precision :: slp
     800            double precision :: cohb
     801            integer dimension(100) :: iatrs1
     802            integer dimension(100) :: iatrs2
     803            integer dimension(100) :: ixatrs
     804            integer dimension(100) :: ivrrs1
     805            integer dimension(100) :: nvrrs
     806            integer :: ntlrt
     807            integer :: ntlsu
     808            integer dimension(500) :: i1vrrt
     809            integer dimension(500) :: i2vrrt
     810            integer dimension(4800) :: iprtsu
     811            integer dimension(800) :: i1rtsu
     812            integer dimension(800) :: nrtsu
     813            integer dimension(800) :: i1vrsu
     814            integer dimension(800) :: i2vrsu
     815            integer dimension(800) :: ipvrsu
     816            double precision dimension(3,10) :: rfpt
     817            double precision dimension(6,10) :: gbpr
     818            double precision dimension(3,10) :: xrfax
     819            double precision dimension(3,10) :: yrfax
     820            double precision dimension(3,10) :: zrfax
    814821            logical dimension(800) :: fxvr
    815             real*8 :: eyel
    816             real*8 :: eyvw
    817             real*8 :: eyhb
    818             real*8 :: eyvr
    819             real*8 :: eysm
    820             real*8 :: eysl
    821             real*8 :: eyrg
    822             real*8 :: eyslh
    823             real*8 :: eyslp
    824             real*8 :: eyab
    825             real*8 :: eysmi
    826             real*8 :: eyhbi
    827             real*8 :: eyeli
    828             real*8 :: eyvwi
    829             real*8 dimension(800) :: gdeyvr
    830             real*8 dimension(800) :: gdeyrg
    831             real*8 dimension(800) :: gdeysl
    832             real*8 dimension(60) :: gdeygb
    833             real*8 :: wtey
    834             real*8 :: wtrg
    835             integer*4 dimension(800) :: iatvr
    836             integer*4 dimension(800) :: ityvr
    837             integer*4 dimension(800) :: iclvr
    838             integer*4 dimension(800) :: iorvr
    839             integer*4 dimension(800) :: imsvr1
    840             integer*4 dimension(800) :: imsvr2
    841             integer*4 dimension(2400) :: latms1
    842             integer*4 dimension(2400) :: latms2
    843             integer*4 dimension(800) :: iadvr1
    844             integer*4 dimension(800) :: iadvr2
    845             integer*4 dimension(800) :: ladvr
    846             integer*4 dimension(800) :: idvr
     822            double precision :: eyel
     823            double precision :: eyvw
     824            double precision :: eyhb
     825            double precision :: eyvr
     826            double precision :: eysm
     827            double precision :: eysl
     828            double precision :: eyrg
     829            double precision :: eyslh
     830            double precision :: eyslp
     831            double precision :: eyab
     832            double precision :: eysmi
     833            double precision :: eyhbi
     834            double precision :: eyeli
     835            double precision :: eyvwi
     836            double precision dimension(800) :: gdeyvr
     837            double precision dimension(800) :: gdeyrg
     838            double precision dimension(800) :: gdeysl
     839            double precision dimension(60) :: gdeygb
     840            double precision :: wtey
     841            double precision :: wtrg
     842            integer dimension(800) :: iatvr
     843            integer dimension(800) :: ityvr
     844            integer dimension(800) :: iclvr
     845            integer dimension(800) :: iorvr
     846            integer dimension(800) :: imsvr1
     847            integer dimension(800) :: imsvr2
     848            integer dimension(2400) :: latms1
     849            integer dimension(2400) :: latms2
     850            integer dimension(800) :: iadvr1
     851            integer dimension(800) :: iadvr2
     852            integer dimension(800) :: ladvr
     853            integer dimension(800) :: idvr
    847854            integer :: enysolct
    848             character dimension(3,800) :: nmvr
    849             real*8 :: boxsize
     855            character dimension(800,3) :: nmvr
     856            double precision :: boxsize
    850857            integer :: seed
    851             character*100 :: zimm
    852             integer*4 :: itysol
     858            character*mxrs :: zimm
     859            integer :: itysol
    853860            logical :: isolscl
    854             real*8 dimension(100) :: rsstrg
     861            double precision dimension(100) :: rsstrg
    855862            character dimension(35,4) :: rsnmcd
    856863            character dimension(35) :: onltcd
    … …  
    858865            integer :: upchswitch
    859866            double precision :: bgsprob
    860             integer*4 dimension(10) :: nvwml
    861             integer*4 dimension(10) :: ivwml1
    862             integer*4 dimension(10) :: n14ml
    863             integer*4 dimension(10) :: i14ml1
    864             integer*4 dimension(2600) :: ivwat1
    865             integer*4 dimension(2600) :: ivwat2
    866             integer*4 dimension(2600) :: i14at1
    867             integer*4 dimension(2600) :: i14at2
    868             integer*4 dimension(10400) :: lvwat1
    869             integer*4 dimension(10400) :: lvwat2
    870             integer*4 dimension(10400) :: l14at
    871             integer*4 dimension(10400) :: ixatvw
    872             integer*4 dimension(10400) :: ixat14
    873             real*8 dimension(800) :: olvlvr
    874             real*8 dimension(800) :: vlvr
    875             real*8 dimension(800) :: axvr
    876             real*8 :: beta
    877             real*8 dimension(18,18) :: c_f
    878             real*8 dimension(18,18) :: a_f
    879             real*8 dimension(4,6) :: chb_f
    880             real*8 dimension(4,6) :: ahb_f
    881             real*8 dimension(19) :: e0to_f
    882             real*8 dimension(19) :: sgto_f
    883             real*8 dimension(19) :: rnto_f
    884             real*8 :: plt_f
    885             real*8 :: slp_f
    886             real*8 :: cohb_f
     867            integer dimension(10) :: nvwml
     868            integer dimension(10) :: ivwml1
     869            integer dimension(10) :: n14ml
     870            integer dimension(10) :: i14ml1
     871            integer dimension(2600) :: ivwat1
     872            integer dimension(2600) :: ivwat2
     873            integer dimension(2600) :: i14at1
     874            integer dimension(2600) :: i14at2
     875            integer dimension(10400) :: lvwat1
     876            integer dimension(10400) :: lvwat2
     877            integer dimension(10400) :: l14at
     878            integer dimension(10400) :: ixatvw
     879            integer dimension(10400) :: ixat14
     880            double precision dimension(800) :: olvlvr
     881            double precision dimension(800) :: vlvr
     882            double precision dimension(800) :: axvr
     883            double precision :: beta
     884            double precision dimension(18,18) :: c_f
     885            double precision dimension(18,18) :: a_f
     886            double precision dimension(4,6) :: chb_f
     887            double precision dimension(4,6) :: ahb_f
     888            double precision dimension(19) :: e0to_f
     889            double precision dimension(19) :: sgto_f
     890            double precision dimension(19) :: rnto_f
     891            double precision :: plt_f
     892            double precision :: slp_f
     893            double precision :: cohb_f
     894            real*8 :: enysol
     895            common /v_sol/ vdvol,asa,asap,asah
     896            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
     897            common /cont_i_j/ ijcont,ind_alf
     898            common /sche_l/ do_s,ac_s
     899            common /rstr_c/ nmrt,nmvrrt
     900            common /mol_par/ nvr
     901            common /sol/ coef_sl,rad_vdw
     902            common /ressurf/ surfres
     903            common /h_bond/ ntyhb,ixtyhb,nutyhb,mmhb
     904            common /atm_c/ nmat
     905            common /fil_i/ lunlib,lunseq,lunchg,lunvar,lunrst
     906            common /refstr/ isrfvr
     907            common /rstr_r/ pbrt,vuvrrt,dvvrrt
     908            common /atm_i/ ityat,iowat,iyowat,nbdat,ibdat,iybdat,ixmsat
     909            common /sche_r/ ehm,atpl,efel,emin,rmin,chb_s,ahb_s,e0to_s,sgto_s,rnto_s,eps_s
     910            common /tes/ spoint
     911            common /flex_l/ do_f,ac_f
     912            common /fil_c/ reslib,seqfil,chgfil,varfil,rstfil
     913            common /mol_i/ ntlml,irsml1,irsml2,ivrml1,nvrml,imsml1,nmsml,iadml1,nadml,ixrfpt,ixatp,ireg
     914            common /help_r/ blath,baath,toath,cgath
     915            common /jref/ iref,nci
     916            common /epar_l/ flex,tesgrd,sh2,epsd,ientyp
     917            common /rgy/ rgyh,rgyp
     918            common /con_i/ idloa,idloz,idupa,idupz
     919            common /paral/ myrank,no,my_mpi_comm,workperprocessor
     920            common /help_c/ nmath,nmvrh
     921            common /help_i/ ityath,iowath,iyowath,nbdath,ibdath,iybdath,ityvrh,iclvrh,iatvrh
     922            common /res_c/ seq
     923            common /solvent/ rvdw,sigma
     924            common /deriv/ gradan
     925            common /epar_i/ ihbty
     926            common /pnt/ npnt
     927            common /mol_c/ nmml
     928            common /epar_r/ cij,aij,a14,chb,ahb,e0to,sgto,rnto,esnto,conv,plt,slp,cohb
     929            common /res_i/ iatrs1,iatrs2,ixatrs,ivrrs1,nvrrs
     930            common /rstr_i/ ntlrt,ntlsu,i1vrrt,i2vrrt,iprtsu,i1rtsu,nrtsu,i1vrsu,i2vrsu,ipvrsu
     931            common /mol_r/ rfpt,gbpr,xrfax,yrfax,zrfax
     932            common /var_l/ fxvr
     933            common /eny_r/ eyel,eyvw,eyhb,eyvr,eysm,eysl,eyrg,eyslh,eyslp,eyab,eysmi,eyhbi,eyeli,eyvwi,gdeyvr,gdeyrg,gdeysl,gdeygb,wtey,wtrg
     934            common /var_i/ iatvr,ityvr,iclvr,iorvr,imsvr1,imsvr2,latms1,latms2,iadvr1,iadvr2,ladvr,idvr
     935            common /counter/ enysolct
     936            common /var_c/ nmvr
     937            common /bounds/ boxsize
     938            common /commonrandom/ seed
     939            common /zimme/ zimm
     940            common /isolty/ itysol,isolscl
     941            common /abgncor/ rsstrg
     942            common /rsnm_c/ rsnmcd,onltcd
     943            common /updchois/ rndord,upchswitch,bgsprob
     944            common /eny_i/ nvwml,ivwml1,n14ml,i14ml1,ivwat1,ivwat2,i14at1,i14at2,lvwat1,lvwat2,l14at,ixatvw,ixat14
     945            common /var_r/ olvlvr,vlvr,axvr
     946            common /bet/ beta
     947            common /flex_r/ c_f,a_f,chb_f,ahb_f,e0to_f,sgto_f,rnto_f,plt_f,slp_f,cohb_f
     948        end function enysol
     949        subroutine setvar(nml,vlvrx) ! in :smmp:setvar.f
     950            integer intent(in) :: nml
     951            double precision dimension(800) :: vlvrx
     952            double precision :: vdvol
     953            double precision :: asa
     954            double precision :: asap
     955            double precision :: asah
     956            integer dimension(2600) :: cgat
     957            double precision dimension(2600) :: xbaat
     958            double precision dimension(2600) :: ybaat
     959            double precision dimension(2600) :: zbaat
     960            double precision dimension(2600) :: baat
     961            double precision dimension(2600) :: snbaat
     962            double precision dimension(2600) :: csbaat
     963            double precision dimension(2600) :: xtoat
     964            double precision dimension(2600) :: ytoat
     965            double precision dimension(2600) :: ztoat
     966            double precision dimension(2600) :: toat
     967            double precision dimension(2600) :: sntoat
     968            double precision dimension(2600) :: cstoat
     969            double precision dimension(2600) :: blat
     970            double precision dimension(2602) :: xat
     971            double precision dimension(2602) :: yat
     972            double precision dimension(2602) :: zat
     973            integer dimension(100,100) :: ijcont
     974            integer dimension(100) :: ind_alf
     975            logical dimension(18) :: do_s
     976            logical dimension(18) :: ac_s
     977            character dimension(500,4) :: nmrt
     978            character dimension(1000,3) :: nmvrrt
     979            integer :: nvr
     980            double precision dimension(9,18) :: coef_sl
     981            double precision dimension(9,18) :: rad_vdw
     982            double precision dimension(100) :: surfres
     983            integer :: ntyhb
     984            integer dimension(100) :: ixtyhb
     985            integer dimension(100) :: nutyhb
     986            integer dimension(10,10) :: mmhb
     987            character dimension(2600,4) :: nmat
     988            integer :: lunlib
     989            integer :: lunseq
     990            integer :: lunchg
     991            integer :: lunvar
     992            integer :: lunrst
     993            logical dimension(800) :: isrfvr
     994            double precision dimension(500) :: pbrt
     995            double precision dimension(1000) :: vuvrrt
     996            double precision dimension(1000) :: dvvrrt
     997            integer dimension(2600) :: ityat
     998            integer dimension(2600) :: iowat
     999            integer dimension(2600) :: iyowat
     1000            integer dimension(2600) :: nbdat
     1001            integer dimension(3,2600) :: ibdat
     1002            integer dimension(3,2600) :: iybdat
     1003            integer dimension(2600) :: ixmsat
     1004            double precision :: ehm
     1005            double precision dimension(18) :: atpl
     1006            double precision dimension(18) :: efel
     1007            double precision dimension(18) :: emin
     1008            double precision dimension(18) :: rmin
     1009            double precision dimension(4,6) :: chb_s
     1010            double precision dimension(4,6) :: ahb_s
     1011            double precision dimension(19) :: e0to_s
     1012            double precision dimension(19) :: sgto_s
     1013            double precision dimension(19) :: rnto_s
     1014            double precision :: eps_s
     1015            double precision dimension(2000,3) :: spoint
     1016            logical dimension(18) :: do_f
     1017            logical dimension(18) :: ac_f
     1018            character*80 :: reslib
     1019            character*80 :: seqfil
     1020            character*80 :: chgfil
     1021            character*80 :: varfil
     1022            character*80 :: rstfil
     1023            integer :: ntlml
     1024            integer dimension(10) :: irsml1
     1025            integer dimension(10) :: irsml2
     1026            integer dimension(10) :: ivrml1
     1027            integer dimension(10) :: nvrml
     1028            integer dimension(10) :: imsml1
     1029            integer dimension(10) :: nmsml
     1030            integer dimension(10) :: iadml1
     1031            integer dimension(10) :: nadml
     1032            integer dimension(3,10) :: ixrfpt
     1033            integer dimension(2600) :: ixatp
     1034            integer :: ireg
     1035            double precision dimension(100) :: blath
     1036            double precision dimension(100) :: baath
     1037            double precision dimension(100) :: toath
     1038            double precision dimension(100) :: cgath
     1039            integer dimension(100,100) :: iref
     1040            integer :: nci
     1041            logical :: flex
     1042            logical :: tesgrd
     1043            logical :: sh2
     1044            logical :: epsd
     1045            integer :: ientyp
     1046            double precision :: rgyh
     1047            double precision :: rgyp
     1048            integer :: idloa
     1049            integer :: idloz
     1050            integer :: idupa
     1051            integer :: idupz
     1052            integer :: myrank
     1053            integer :: no
     1054            integer :: my_mpi_comm
     1055            integer dimension(11,2049) :: workperprocessor
     1056            character dimension(100,4) :: nmath
     1057            character dimension(100,3) :: nmvrh
     1058            integer dimension(100) :: ityath
     1059            integer dimension(100) :: iowath
     1060            integer dimension(100) :: iyowath
     1061            integer dimension(100) :: nbdath
     1062            integer dimension(3,100) :: ibdath
     1063            integer dimension(3,100) :: iybdath
     1064            integer dimension(100) :: ityvrh
     1065            integer dimension(100) :: iclvrh
     1066            integer dimension(100) :: iatvrh
     1067            character dimension(100,4) :: seq
     1068            double precision dimension(2600) :: rvdw
     1069            double precision dimension(2600) :: sigma
     1070            double precision dimension(2600,3) :: gradan
     1071            integer dimension(18,18) :: ihbty
     1072            integer :: npnt
     1073            character dimension(10,80) :: nmml
     1074            double precision dimension(18,18) :: cij
     1075            double precision dimension(18,18) :: aij
     1076            double precision dimension(18,18) :: a14
     1077            double precision dimension(18,18) :: chb
     1078            double precision dimension(18,18) :: ahb
     1079            double precision dimension(19) :: e0to
     1080            double precision dimension(19) :: sgto
     1081            double precision dimension(19) :: rnto
     1082            double precision dimension(19) :: esnto
     1083            double precision :: conv
     1084            double precision :: plt
     1085            double precision :: slp
     1086            double precision :: cohb
     1087            integer dimension(100) :: iatrs1
     1088            integer dimension(100) :: iatrs2
     1089            integer dimension(100) :: ixatrs
     1090            integer dimension(100) :: ivrrs1
     1091            integer dimension(100) :: nvrrs
     1092            integer :: ntlrt
     1093            integer :: ntlsu
     1094            integer dimension(500) :: i1vrrt
     1095            integer dimension(500) :: i2vrrt
     1096            integer dimension(4800) :: iprtsu
     1097            integer dimension(800) :: i1rtsu
     1098            integer dimension(800) :: nrtsu
     1099            integer dimension(800) :: i1vrsu
     1100            integer dimension(800) :: i2vrsu
     1101            integer dimension(800) :: ipvrsu
     1102            double precision dimension(3,10) :: rfpt
     1103            double precision dimension(6,10) :: gbpr
     1104            double precision dimension(3,10) :: xrfax
     1105            double precision dimension(3,10) :: yrfax
     1106            double precision dimension(3,10) :: zrfax
     1107            logical dimension(800) :: fxvr
     1108            double precision :: eyel
     1109            double precision :: eyvw
     1110            double precision :: eyhb
     1111            double precision :: eyvr
     1112            double precision :: eysm
     1113            double precision :: eysl
     1114            double precision :: eyrg
     1115            double precision :: eyslh
     1116            double precision :: eyslp
     1117            double precision :: eyab
     1118            double precision :: eysmi
     1119            double precision :: eyhbi
     1120            double precision :: eyeli
     1121            double precision :: eyvwi
     1122            double precision dimension(800) :: gdeyvr
     1123            double precision dimension(800) :: gdeyrg
     1124            double precision dimension(800) :: gdeysl
     1125            double precision dimension(60) :: gdeygb
     1126            double precision :: wtey
     1127            double precision :: wtrg
     1128            integer dimension(800) :: iatvr
     1129            integer dimension(800) :: ityvr
     1130            integer dimension(800) :: iclvr
     1131            integer dimension(800) :: iorvr
     1132            integer dimension(800) :: imsvr1
     1133            integer dimension(800) :: imsvr2
     1134            integer dimension(2400) :: latms1
     1135            integer dimension(2400) :: latms2
     1136            integer dimension(800) :: iadvr1
     1137            integer dimension(800) :: iadvr2
     1138            integer dimension(800) :: ladvr
     1139            integer dimension(800) :: idvr
     1140            integer :: enysolct
     1141            character dimension(800,3) :: nmvr
     1142            double precision :: boxsize
     1143            integer :: seed
     1144            character*mxrs :: zimm
     1145            integer :: itysol
     1146            logical :: isolscl
     1147            double precision dimension(100) :: rsstrg
     1148            character dimension(35,4) :: rsnmcd
     1149            character dimension(35) :: onltcd
     1150            logical :: rndord
     1151            integer :: upchswitch
     1152            double precision :: bgsprob
     1153            integer dimension(10) :: nvwml
     1154            integer dimension(10) :: ivwml1
     1155            integer dimension(10) :: n14ml
     1156            integer dimension(10) :: i14ml1
     1157            integer dimension(2600) :: ivwat1
     1158            integer dimension(2600) :: ivwat2
     1159            integer dimension(2600) :: i14at1
     1160            integer dimension(2600) :: i14at2
     1161            integer dimension(10400) :: lvwat1
     1162            integer dimension(10400) :: lvwat2
     1163            integer dimension(10400) :: l14at
     1164            integer dimension(10400) :: ixatvw
     1165            integer dimension(10400) :: ixat14
     1166            double precision dimension(800) :: olvlvr
     1167            double precision dimension(800) :: vlvr
     1168            double precision dimension(800) :: axvr
     1169            double precision :: beta
     1170            double precision dimension(18,18) :: c_f
     1171            double precision dimension(18,18) :: a_f
     1172            double precision dimension(4,6) :: chb_f
     1173            double precision dimension(4,6) :: ahb_f
     1174            double precision dimension(19) :: e0to_f
     1175            double precision dimension(19) :: sgto_f
     1176            double precision dimension(19) :: rnto_f
     1177            double precision :: plt_f
     1178            double precision :: slp_f
     1179            double precision :: cohb_f
     1180            common /v_sol/ vdvol,asa,asap,asah
     1181            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
     1182            common /cont_i_j/ ijcont,ind_alf
     1183            common /sche_l/ do_s,ac_s
     1184            common /rstr_c/ nmrt,nmvrrt
     1185            common /mol_par/ nvr
     1186            common /sol/ coef_sl,rad_vdw
     1187            common /ressurf/ surfres
     1188            common /h_bond/ ntyhb,ixtyhb,nutyhb,mmhb
     1189            common /atm_c/ nmat
     1190            common /fil_i/ lunlib,lunseq,lunchg,lunvar,lunrst
     1191            common /refstr/ isrfvr
     1192            common /rstr_r/ pbrt,vuvrrt,dvvrrt
     1193            common /atm_i/ ityat,iowat,iyowat,nbdat,ibdat,iybdat,ixmsat
     1194            common /sche_r/ ehm,atpl,efel,emin,rmin,chb_s,ahb_s,e0to_s,sgto_s,rnto_s,eps_s
     1195            common /tes/ spoint
     1196            common /flex_l/ do_f,ac_f
     1197            common /fil_c/ reslib,seqfil,chgfil,varfil,rstfil
     1198            common /mol_i/ ntlml,irsml1,irsml2,ivrml1,nvrml,imsml1,nmsml,iadml1,nadml,ixrfpt,ixatp,ireg
     1199            common /help_r/ blath,baath,toath,cgath
     1200            common /jref/ iref,nci
     1201            common /epar_l/ flex,tesgrd,sh2,epsd,ientyp
     1202            common /rgy/ rgyh,rgyp
     1203            common /con_i/ idloa,idloz,idupa,idupz
     1204            common /paral/ myrank,no,my_mpi_comm,workperprocessor
     1205            common /help_c/ nmath,nmvrh
     1206            common /help_i/ ityath,iowath,iyowath,nbdath,ibdath,iybdath,ityvrh,iclvrh,iatvrh
     1207            common /res_c/ seq
     1208            common /solvent/ rvdw,sigma
     1209            common /deriv/ gradan
     1210            common /epar_i/ ihbty
     1211            common /pnt/ npnt
     1212            common /mol_c/ nmml
     1213            common /epar_r/ cij,aij,a14,chb,ahb,e0to,sgto,rnto,esnto,conv,plt,slp,cohb
     1214            common /res_i/ iatrs1,iatrs2,ixatrs,ivrrs1,nvrrs
     1215            common /rstr_i/ ntlrt,ntlsu,i1vrrt,i2vrrt,iprtsu,i1rtsu,nrtsu,i1vrsu,i2vrsu,ipvrsu
     1216            common /mol_r/ rfpt,gbpr,xrfax,yrfax,zrfax
     1217            common /var_l/ fxvr
     1218            common /eny_r/ eyel,eyvw,eyhb,eyvr,eysm,eysl,eyrg,eyslh,eyslp,eyab,eysmi,eyhbi,eyeli,eyvwi,gdeyvr,gdeyrg,gdeysl,gdeygb,wtey,wtrg
     1219            common /var_i/ iatvr,ityvr,iclvr,iorvr,imsvr1,imsvr2,latms1,latms2,iadvr1,iadvr2,ladvr,idvr
     1220            common /counter/ enysolct
     1221            common /var_c/ nmvr
     1222            common /bounds/ boxsize
     1223            common /commonrandom/ seed
     1224            common /zimme/ zimm
     1225            common /isolty/ itysol,isolscl
     1226            common /abgncor/ rsstrg
     1227            common /rsnm_c/ rsnmcd,onltcd
     1228            common /updchois/ rndord,upchswitch,bgsprob
     1229            common /eny_i/ nvwml,ivwml1,n14ml,i14ml1,ivwat1,ivwat2,i14at1,i14at2,lvwat1,lvwat2,l14at,ixatvw,ixat14
     1230            common /var_r/ olvlvr,vlvr,axvr
     1231            common /bet/ beta
     1232            common /flex_r/ c_f,a_f,chb_f,ahb_f,e0to_f,sgto_f,rnto_f,plt_f,slp_f,cohb_f
     1233        end subroutine setvar
     1234        subroutine minim(imin,maxit,eps) ! in :smmp:minim.f
     1235            integer*4 intent(in) :: imin
     1236            integer*4 intent(in) :: maxit
     1237            real*8 :: eps
     1238            double precision :: vdvol
     1239            double precision :: asa
     1240            double precision :: asap
     1241            double precision :: asah
     1242            integer dimension(2600) :: cgat
     1243            double precision dimension(2600) :: xbaat
     1244            double precision dimension(2600) :: ybaat
     1245            double precision dimension(2600) :: zbaat
     1246            double precision dimension(2600) :: baat
     1247            double precision dimension(2600) :: snbaat
     1248            double precision dimension(2600) :: csbaat
     1249            double precision dimension(2600) :: xtoat
     1250            double precision dimension(2600) :: ytoat
     1251            double precision dimension(2600) :: ztoat
     1252            double precision dimension(2600) :: toat
     1253            double precision dimension(2600) :: sntoat
     1254            double precision dimension(2600) :: cstoat
     1255            double precision dimension(2600) :: blat
     1256            double precision dimension(2602) :: xat
     1257            double precision dimension(2602) :: yat
     1258            double precision dimension(2602) :: zat
     1259            integer dimension(100,100) :: ijcont
     1260            integer dimension(100) :: ind_alf
     1261            logical dimension(18) :: do_s
     1262            logical dimension(18) :: ac_s
     1263            character dimension(500,4) :: nmrt
     1264            character dimension(1000,3) :: nmvrrt
     1265            integer :: nvr
     1266            double precision dimension(9,18) :: coef_sl
     1267            double precision dimension(9,18) :: rad_vdw
     1268            double precision dimension(100) :: surfres
     1269            integer :: ntyhb
     1270            integer dimension(100) :: ixtyhb
     1271            integer dimension(100) :: nutyhb
     1272            integer dimension(10,10) :: mmhb
     1273            character dimension(2600,4) :: nmat
     1274            integer :: lunlib
     1275            integer :: lunseq
     1276            integer :: lunchg
     1277            integer :: lunvar
     1278            integer :: lunrst
     1279            logical dimension(800) :: isrfvr
     1280            double precision dimension(500) :: pbrt
     1281            double precision dimension(1000) :: vuvrrt
     1282            double precision dimension(1000) :: dvvrrt
     1283            integer dimension(2600) :: ityat
     1284            integer dimension(2600) :: iowat
     1285            integer dimension(2600) :: iyowat
     1286            integer dimension(2600) :: nbdat
     1287            integer dimension(3,2600) :: ibdat
     1288            integer dimension(3,2600) :: iybdat
     1289            integer dimension(2600) :: ixmsat
     1290            double precision :: ehm
     1291            double precision dimension(18) :: atpl
     1292            double precision dimension(18) :: efel
     1293            double precision dimension(18) :: emin
     1294            double precision dimension(18) :: rmin
     1295            double precision dimension(4,6) :: chb_s
     1296            double precision dimension(4,6) :: ahb_s
     1297            double precision dimension(19) :: e0to_s
     1298            double precision dimension(19) :: sgto_s
     1299            double precision dimension(19) :: rnto_s
     1300            double precision :: eps_s
     1301            double precision dimension(2000,3) :: spoint
     1302            logical dimension(18) :: do_f
     1303            logical dimension(18) :: ac_f
     1304            character*80 :: reslib
     1305            character*80 :: seqfil
     1306            character*80 :: chgfil
     1307            character*80 :: varfil
     1308            character*80 :: rstfil
     1309            integer :: ntlml
     1310            integer dimension(10) :: irsml1
     1311            integer dimension(10) :: irsml2
     1312            integer dimension(10) :: ivrml1
     1313            integer dimension(10) :: nvrml
     1314            integer dimension(10) :: imsml1
     1315            integer dimension(10) :: nmsml
     1316            integer dimension(10) :: iadml1
     1317            integer dimension(10) :: nadml
     1318            integer dimension(3,10) :: ixrfpt
     1319            integer dimension(2600) :: ixatp
     1320            integer :: ireg
     1321            double precision dimension(100) :: blath
     1322            double precision dimension(100) :: baath
     1323            double precision dimension(100) :: toath
     1324            double precision dimension(100) :: cgath
     1325            integer dimension(100,100) :: iref
     1326            integer :: nci
     1327            logical :: flex
     1328            logical :: tesgrd
     1329            logical :: sh2
     1330            logical :: epsd
     1331            integer :: ientyp
     1332            double precision :: rgyh
     1333            double precision :: rgyp
     1334            integer :: idloa
     1335            integer :: idloz
     1336            integer :: idupa
     1337            integer :: idupz
     1338            integer :: myrank
     1339            integer :: no
     1340            integer :: my_mpi_comm
     1341            integer dimension(11,2049) :: workperprocessor
     1342            character dimension(100,4) :: nmath
     1343            character dimension(100,3) :: nmvrh
     1344            integer dimension(100) :: ityath
     1345            integer dimension(100) :: iowath
     1346            integer dimension(100) :: iyowath
     1347            integer dimension(100) :: nbdath
     1348            integer dimension(3,100) :: ibdath
     1349            integer dimension(3,100) :: iybdath
     1350            integer dimension(100) :: ityvrh
     1351            integer dimension(100) :: iclvrh
     1352            integer dimension(100) :: iatvrh
     1353            character dimension(100,4) :: seq
     1354            double precision dimension(2600) :: rvdw
     1355            double precision dimension(2600) :: sigma
     1356            double precision dimension(2600,3) :: gradan
     1357            integer dimension(18,18) :: ihbty
     1358            integer :: npnt
     1359            character dimension(10,80) :: nmml
     1360            double precision dimension(18,18) :: cij
     1361            double precision dimension(18,18) :: aij
     1362            double precision dimension(18,18) :: a14
     1363            double precision dimension(18,18) :: chb
     1364            double precision dimension(18,18) :: ahb
     1365            double precision dimension(19) :: e0to
     1366            double precision dimension(19) :: sgto
     1367            double precision dimension(19) :: rnto
     1368            double precision dimension(19) :: esnto
     1369            double precision :: conv
     1370            double precision :: plt
     1371            double precision :: slp
     1372            double precision :: cohb
     1373            integer dimension(100) :: iatrs1
     1374            integer dimension(100) :: iatrs2
     1375            integer dimension(100) :: ixatrs
     1376            integer dimension(100) :: ivrrs1
     1377            integer dimension(100) :: nvrrs
     1378            integer :: ntlrt
     1379            integer :: ntlsu
     1380            integer dimension(500) :: i1vrrt
     1381            integer dimension(500) :: i2vrrt
     1382            integer dimension(4800) :: iprtsu
     1383            integer dimension(800) :: i1rtsu
     1384            integer dimension(800) :: nrtsu
     1385            integer dimension(800) :: i1vrsu
     1386            integer dimension(800) :: i2vrsu
     1387            integer dimension(800) :: ipvrsu
     1388            double precision dimension(3,10) :: rfpt
     1389            double precision dimension(6,10) :: gbpr
     1390            double precision dimension(3,10) :: xrfax
     1391            double precision dimension(3,10) :: yrfax
     1392            double precision dimension(3,10) :: zrfax
     1393            logical dimension(800) :: fxvr
     1394            double precision :: eyel
     1395            double precision :: eyvw
     1396            double precision :: eyhb
     1397            double precision :: eyvr
     1398            double precision :: eysm
     1399            double precision :: eysl
     1400            double precision :: eyrg
     1401            double precision :: eyslh
     1402            double precision :: eyslp
     1403            double precision :: eyab
     1404            double precision :: eysmi
     1405            double precision :: eyhbi
     1406            double precision :: eyeli
     1407            double precision :: eyvwi
     1408            double precision dimension(800) :: gdeyvr
     1409            double precision dimension(800) :: gdeyrg
     1410            double precision dimension(800) :: gdeysl
     1411            double precision dimension(60) :: gdeygb
     1412            double precision :: wtey
     1413            double precision :: wtrg
     1414            integer dimension(800) :: iatvr
     1415            integer dimension(800) :: ityvr
     1416            integer dimension(800) :: iclvr
     1417            integer dimension(800) :: iorvr
     1418            integer dimension(800) :: imsvr1
     1419            integer dimension(800) :: imsvr2
     1420            integer dimension(2400) :: latms1
     1421            integer dimension(2400) :: latms2
     1422            integer dimension(800) :: iadvr1
     1423            integer dimension(800) :: iadvr2
     1424            integer dimension(800) :: ladvr
     1425            integer dimension(800) :: idvr
     1426            integer :: enysolct
     1427            character dimension(800,3) :: nmvr
     1428            double precision :: boxsize
     1429            integer :: seed
     1430            character*mxrs :: zimm
     1431            integer :: itysol
     1432            logical :: isolscl
     1433            double precision dimension(100) :: rsstrg
     1434            character dimension(35,4) :: rsnmcd
     1435            character dimension(35) :: onltcd
     1436            logical :: rndord
     1437            integer :: upchswitch
     1438            double precision :: bgsprob
     1439            integer dimension(10) :: nvwml
     1440            integer dimension(10) :: ivwml1
     1441            integer dimension(10) :: n14ml
     1442            integer dimension(10) :: i14ml1
     1443            integer dimension(2600) :: ivwat1
     1444            integer dimension(2600) :: ivwat2
     1445            integer dimension(2600) :: i14at1
     1446            integer dimension(2600) :: i14at2
     1447            integer dimension(10400) :: lvwat1
     1448            integer dimension(10400) :: lvwat2
     1449            integer dimension(10400) :: l14at
     1450            integer dimension(10400) :: ixatvw
     1451            integer dimension(10400) :: ixat14
     1452            double precision dimension(800) :: olvlvr
     1453            double precision dimension(800) :: vlvr
     1454            double precision dimension(800) :: axvr
     1455            double precision :: beta
     1456            double precision dimension(18,18) :: c_f
     1457            double precision dimension(18,18) :: a_f
     1458            double precision dimension(4,6) :: chb_f
     1459            double precision dimension(4,6) :: ahb_f
     1460            double precision dimension(19) :: e0to_f
     1461            double precision dimension(19) :: sgto_f
     1462            double precision dimension(19) :: rnto_f
     1463            double precision :: plt_f
     1464            double precision :: slp_f
     1465            double precision :: cohb_f
    8871466            common /v_sol/ vdvol,asa,asap,asah
    8881467            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    9431522            integer*4 intent(out) :: nham2
    9441523            real*8 intent(out) :: dham
    945             real*8 :: vdvol
    946             real*8 :: asa
    947             real*8 :: asap
    948             real*8 :: asah
    949             real*8 dimension(2600) :: cgat
    950             real*8 dimension(2600) :: xbaat
    951             real*8 dimension(2600) :: ybaat
    952             real*8 dimension(2600) :: zbaat
    953             real*8 dimension(2600) :: baat
    954             real*8 dimension(2600) :: snbaat
    955             real*8 dimension(2600) :: csbaat
    956             real*8 dimension(2600) :: xtoat
    957             real*8 dimension(2600) :: ytoat
    958             real*8 dimension(2600) :: ztoat
    959             real*8 dimension(2600) :: toat
    960             real*8 dimension(2600) :: sntoat
    961             real*8 dimension(2600) :: cstoat
    962             real*8 dimension(2600) :: blat
    963             real*8 dimension(2602) :: xat
    964             real*8 dimension(2602) :: yat
    965             real*8 dimension(2602) :: zat
    966             integer*4 dimension(100,100) :: ijcont
    967             integer*4 dimension(100) :: ind_alf
     1524            double precision :: vdvol
     1525            double precision :: asa
     1526            double precision :: asap
     1527            double precision :: asah
     1528            integer dimension(2600) :: cgat
     1529            double precision dimension(2600) :: xbaat
     1530            double precision dimension(2600) :: ybaat
     1531            double precision dimension(2600) :: zbaat
     1532            double precision dimension(2600) :: baat
     1533            double precision dimension(2600) :: snbaat
     1534            double precision dimension(2600) :: csbaat
     1535            double precision dimension(2600) :: xtoat
     1536            double precision dimension(2600) :: ytoat
     1537            double precision dimension(2600) :: ztoat
     1538            double precision dimension(2600) :: toat
     1539            double precision dimension(2600) :: sntoat
     1540            double precision dimension(2600) :: cstoat
     1541            double precision dimension(2600) :: blat
     1542            double precision dimension(2602) :: xat
     1543            double precision dimension(2602) :: yat
     1544            double precision dimension(2602) :: zat
     1545            integer dimension(100,100) :: ijcont
     1546            integer dimension(100) :: ind_alf
    9681547            logical dimension(18) :: do_s
    9691548            logical dimension(18) :: ac_s
    9701549            character dimension(500,4) :: nmrt
    9711550            character dimension(1000,3) :: nmvrrt
    972             integer*4 :: nvr
    973             real*8 dimension(9,18) :: coef_sl
    974             real*8 dimension(9,18) :: rad_vdw
    975             real*8 dimension(100) :: surfres
    976             integer*4 :: ntyhb
    977             integer*4 dimension(100) :: ixtyhb
    978             integer*4 dimension(100) :: nutyhb
    979             integer*4 dimension(10,10) :: mmhb
    980             character dimension(4,2600) :: nmat
    981             integer*4 :: lunlib
    982             integer*4 :: lunseq
    983             integer*4 :: lunchg
    984             integer*4 :: lunvar
    985             integer*4 :: lunrst
     1551            integer :: nvr
     1552            double precision dimension(9,18) :: coef_sl
     1553            double precision dimension(9,18) :: rad_vdw
     1554            double precision dimension(100) :: surfres
     1555            integer :: ntyhb
     1556            integer dimension(100) :: ixtyhb
     1557            integer dimension(100) :: nutyhb
     1558            integer dimension(10,10) :: mmhb
     1559            character dimension(2600,4) :: nmat
     1560            integer :: lunlib
     1561            integer :: lunseq
     1562            integer :: lunchg
     1563            integer :: lunvar
     1564            integer :: lunrst
    9861565            logical dimension(800) :: isrfvr
    987             real*8 dimension(500) :: pbrt
    988             real*8 dimension(1000) :: vuvrrt
    989             real*8 dimension(1000) :: dvvrrt
    990             integer*4 dimension(2600) :: ityat
    991             integer*4 dimension(2600) :: iowat
    992             integer*4 dimension(2600) :: iyowat
    993             integer*4 dimension(2600) :: nbdat
    994             integer*4 dimension(3,2600) :: ibdat
    995             integer*4 dimension(3,2600) :: iybdat
    996             integer*4 dimension(2600) :: ixmsat
    997             real*8 :: ehm
    998             real*8 dimension(18) :: atpl
    999             real*8 dimension(18) :: efel
    1000             real*8 dimension(18) :: emin
    1001             real*8 dimension(18) :: rmin
    1002             real*8 dimension(4,6) :: chb_s
    1003             real*8 dimension(4,6) :: ahb_s
    1004             real*8 dimension(19) :: e0to_s
    1005             real*8 dimension(19) :: sgto_s
    1006             real*8 dimension(19) :: rnto_s
    1007             real*8 :: eps_s
    1008             real*8 dimension(2000,3) :: spoint
     1566            double precision dimension(500) :: pbrt
     1567            double precision dimension(1000) :: vuvrrt
     1568            double precision dimension(1000) :: dvvrrt
     1569            integer dimension(2600) :: ityat
     1570            integer dimension(2600) :: iowat
     1571            integer dimension(2600) :: iyowat
     1572            integer dimension(2600) :: nbdat
     1573            integer dimension(3,2600) :: ibdat
     1574            integer dimension(3,2600) :: iybdat
     1575            integer dimension(2600) :: ixmsat
     1576            double precision :: ehm
     1577            double precision dimension(18) :: atpl
     1578            double precision dimension(18) :: efel
     1579            double precision dimension(18) :: emin
     1580            double precision dimension(18) :: rmin
     1581            double precision dimension(4,6) :: chb_s
     1582            double precision dimension(4,6) :: ahb_s
     1583            double precision dimension(19) :: e0to_s
     1584            double precision dimension(19) :: sgto_s
     1585            double precision dimension(19) :: rnto_s
     1586            double precision :: eps_s
     1587            double precision dimension(2000,3) :: spoint
    10091588            logical dimension(18) :: do_f
    10101589            logical dimension(18) :: ac_f
    … …  
    10141593            character*80 :: varfil
    10151594            character*80 :: rstfil
    1016             integer*4 :: ntlml
    1017             integer*4 dimension(10) :: irsml1
    1018             integer*4 dimension(10) :: irsml2
    1019             integer*4 dimension(10) :: ivrml1
    1020             integer*4 dimension(10) :: nvrml
    1021             integer*4 dimension(10) :: imsml1
    1022             integer*4 dimension(10) :: nmsml
    1023             integer*4 dimension(10) :: iadml1
    1024             integer*4 dimension(10) :: nadml
    1025             integer*4 dimension(3,10) :: ixrfpt
    1026             integer*4 dimension(2600) :: ixatp
    1027             integer*4 :: ireg
    1028             real*8 dimension(100) :: blath
    1029             real*8 dimension(100) :: baath
    1030             real*8 dimension(100) :: toath
    1031             real*8 dimension(100) :: cgath
    1032             integer*4 dimension(100,100) :: iref
    1033             integer*4 :: nci
     1595            integer :: ntlml
     1596            integer dimension(10) :: irsml1
     1597            integer dimension(10) :: irsml2
     1598            integer dimension(10) :: ivrml1
     1599            integer dimension(10) :: nvrml
     1600            integer dimension(10) :: imsml1
     1601            integer dimension(10) :: nmsml
     1602            integer dimension(10) :: iadml1
     1603            integer dimension(10) :: nadml
     1604            integer dimension(3,10) :: ixrfpt
     1605            integer dimension(2600) :: ixatp
     1606            integer :: ireg
     1607            double precision dimension(100) :: blath
     1608            double precision dimension(100) :: baath
     1609            double precision dimension(100) :: toath
     1610            double precision dimension(100) :: cgath
     1611            integer dimension(100,100) :: iref
     1612            integer :: nci
    10341613            logical :: flex
    10351614            logical :: tesgrd
    10361615            logical :: sh2
    10371616            logical :: epsd
    1038             integer*4 :: ientyp
    1039             real*8 :: rgyh
    1040             real*8 :: rgyp
    1041             integer*4 :: idloa
    1042             integer*4 :: idloz
    1043             integer*4 :: idupa
    1044             integer*4 :: idupz
     1617            integer :: ientyp
     1618            double precision :: rgyh
     1619            double precision :: rgyp
     1620            integer :: idloa
     1621            integer :: idloz
     1622            integer :: idupa
     1623            integer :: idupz
    10451624            integer :: myrank
    10461625            integer :: no
    … …  
    10491628            character dimension(100,4) :: nmath
    10501629            character dimension(100,3) :: nmvrh
    1051             integer*4 dimension(100) :: ityath
    1052             integer*4 dimension(100) :: iowath
    1053             integer*4 dimension(100) :: iyowath
    1054             integer*4 dimension(100) :: nbdath
    1055             integer*4 dimension(3,100) :: ibdath
    1056             integer*4 dimension(3,100) :: iybdath
    1057             integer*4 dimension(100) :: ityvrh
    1058             integer*4 dimension(100) :: iclvrh
    1059             integer*4 dimension(100) :: iatvrh
     1630            integer dimension(100) :: ityath
     1631            integer dimension(100) :: iowath
     1632            integer dimension(100) :: iyowath
     1633            integer dimension(100) :: nbdath
     1634            integer dimension(3,100) :: ibdath
     1635            integer dimension(3,100) :: iybdath
     1636            integer dimension(100) :: ityvrh
     1637            integer dimension(100) :: iclvrh
     1638            integer dimension(100) :: iatvrh
    10601639            character dimension(100,4) :: seq
    1061             real*8 dimension(2600) :: rvdw
    1062             real*8 dimension(2600) :: sigma
    1063             real*8 dimension(2600,3) :: gradan
    1064             integer*4 dimension(18,18) :: ihbty
    1065             integer*4 :: npnt
     1640            double precision dimension(2600) :: rvdw
     1641            double precision dimension(2600) :: sigma
     1642            double precision dimension(2600,3) :: gradan
     1643            integer dimension(18,18) :: ihbty
     1644            integer :: npnt
    10661645            character dimension(10,80) :: nmml
    1067             real*8 dimension(18,18) :: cij
    1068             real*8 dimension(18,18) :: aij
    1069             real*8 dimension(18,18) :: a14
    1070             real*8 dimension(18,18) :: chb
    1071             real*8 dimension(18,18) :: ahb
    1072             real*8 dimension(19) :: e0to
    1073             real*8 dimension(19) :: sgto
    1074             real*8 dimension(19) :: rnto
    1075             real*8 dimension(19) :: esnto
    1076             real*8 :: conv
    1077             real*8 :: plt
    1078             real*8 :: slp
    1079             real*8 :: cohb
    1080             integer*4 dimension(100) :: iatrs1
    1081             integer*4 dimension(100) :: iatrs2
    1082             integer*4 dimension(100) :: ixatrs
    1083             integer*4 dimension(100) :: ivrrs1
    1084             integer*4 dimension(100) :: nvrrs
    1085             integer*4 :: ntlrt
    1086             integer*4 :: ntlsu
    1087             integer*4 dimension(500) :: i1vrrt
    1088             integer*4 dimension(500) :: i2vrrt
    1089             integer*4 dimension(4800) :: iprtsu
    1090             integer*4 dimension(800) :: i1rtsu
    1091             integer*4 dimension(800) :: nrtsu
    1092             integer*4 dimension(800) :: i1vrsu
    1093             integer*4 dimension(800) :: i2vrsu
    1094             integer*4 dimension(800) :: ipvrsu
    1095             real*8 dimension(3,10) :: rfpt
    1096             real*8 dimension(6,10) :: gbpr
    1097             real*8 dimension(3,10) :: xrfax
    1098             real*8 dimension(3,10) :: yrfax
    1099             real*8 dimension(3,10) :: zrfax
     1646            double precision dimension(18,18) :: cij
     1647            double precision dimension(18,18) :: aij
     1648            double precision dimension(18,18) :: a14
     1649            double precision dimension(18,18) :: chb
     1650            double precision dimension(18,18) :: ahb
     1651            double precision dimension(19) :: e0to
     1652            double precision dimension(19) :: sgto
     1653            double precision dimension(19) :: rnto
     1654            double precision dimension(19) :: esnto
     1655            double precision :: conv
     1656            double precision :: plt
     1657            double precision :: slp
     1658            double precision :: cohb
     1659            integer dimension(100) :: iatrs1
     1660            integer dimension(100) :: iatrs2
     1661            integer dimension(100) :: ixatrs
     1662            integer dimension(100) :: ivrrs1
     1663            integer dimension(100) :: nvrrs
     1664            integer :: ntlrt
     1665            integer :: ntlsu
     1666            integer dimension(500) :: i1vrrt
     1667            integer dimension(500) :: i2vrrt
     1668            integer dimension(4800) :: iprtsu
     1669            integer dimension(800) :: i1rtsu
     1670            integer dimension(800) :: nrtsu
     1671            integer dimension(800) :: i1vrsu
     1672            integer dimension(800) :: i2vrsu
     1673            integer dimension(800) :: ipvrsu
     1674            double precision dimension(3,10) :: rfpt
     1675            double precision dimension(6,10) :: gbpr
     1676            double precision dimension(3,10) :: xrfax
     1677            double precision dimension(3,10) :: yrfax
     1678            double precision dimension(3,10) :: zrfax
    11001679            logical dimension(800) :: fxvr
    1101             real*8 :: eyel
    1102             real*8 :: eyvw
    1103             real*8 :: eyhb
    1104             real*8 :: eyvr
    1105             real*8 :: eysm
    1106             real*8 :: eysl
    1107             real*8 :: eyrg
    1108             real*8 :: eyslh
    1109             real*8 :: eyslp
    1110             real*8 :: eyab
    1111             real*8 :: eysmi
    1112             real*8 :: eyhbi
    1113             real*8 :: eyeli
    1114             real*8 :: eyvwi
    1115             real*8 dimension(800) :: gdeyvr
    1116             real*8 dimension(800) :: gdeyrg
    1117             real*8 dimension(800) :: gdeysl
    1118             real*8 dimension(60) :: gdeygb
    1119             real*8 :: wtey
    1120             real*8 :: wtrg
    1121             integer*4 dimension(800) :: iatvr
    1122             integer*4 dimension(800) :: ityvr
    1123             integer*4 dimension(800) :: iclvr
    1124             integer*4 dimension(800) :: iorvr
    1125             integer*4 dimension(800) :: imsvr1
    1126             integer*4 dimension(800) :: imsvr2
    1127             integer*4 dimension(2400) :: latms1
    1128             integer*4 dimension(2400) :: latms2
    1129             integer*4 dimension(800) :: iadvr1
    1130             integer*4 dimension(800) :: iadvr2
    1131             integer*4 dimension(800) :: ladvr
    1132             integer*4 dimension(800) :: idvr
     1680            double precision :: eyel
     1681            double precision :: eyvw
     1682            double precision :: eyhb
     1683            double precision :: eyvr
     1684            double precision :: eysm
     1685            double precision :: eysl
     1686            double precision :: eyrg
     1687            double precision :: eyslh
     1688            double precision :: eyslp
     1689            double precision :: eyab
     1690            double precision :: eysmi
     1691            double precision :: eyhbi
     1692            double precision :: eyeli
     1693            double precision :: eyvwi
     1694            double precision dimension(800) :: gdeyvr
     1695            double precision dimension(800) :: gdeyrg
     1696            double precision dimension(800) :: gdeysl
     1697            double precision dimension(60) :: gdeygb
     1698            double precision :: wtey
     1699            double precision :: wtrg
     1700            integer dimension(800) :: iatvr
     1701            integer dimension(800) :: ityvr
     1702            integer dimension(800) :: iclvr
     1703            integer dimension(800) :: iorvr
     1704            integer dimension(800) :: imsvr1
     1705            integer dimension(800) :: imsvr2
     1706            integer dimension(2400) :: latms1
     1707            integer dimension(2400) :: latms2
     1708            integer dimension(800) :: iadvr1
     1709            integer dimension(800) :: iadvr2
     1710            integer dimension(800) :: ladvr
     1711            integer dimension(800) :: idvr
    11331712            integer :: enysolct
    1134             character dimension(3,800) :: nmvr
    1135             real*8 :: boxsize
     1713            character dimension(800,3) :: nmvr
     1714            double precision :: boxsize
    11361715            integer :: seed
    1137             character*100 :: zimm
    1138             integer*4 :: itysol
     1716            character*mxrs :: zimm
     1717            integer :: itysol
    11391718            logical :: isolscl
    1140             real*8 dimension(100) :: rsstrg
     1719            double precision dimension(100) :: rsstrg
    11411720            character dimension(35,4) :: rsnmcd
    11421721            character dimension(35) :: onltcd
    … …  
    11441723            integer :: upchswitch
    11451724            double precision :: bgsprob
    1146             integer*4 dimension(10) :: nvwml
    1147             integer*4 dimension(10) :: ivwml1
    1148             integer*4 dimension(10) :: n14ml
    1149             integer*4 dimension(10) :: i14ml1
    1150             integer*4 dimension(2600) :: ivwat1
    1151             integer*4 dimension(2600) :: ivwat2
    1152             integer*4 dimension(2600) :: i14at1
    1153             integer*4 dimension(2600) :: i14at2
    1154             integer*4 dimension(10400) :: lvwat1
    1155             integer*4 dimension(10400) :: lvwat2
    1156             integer*4 dimension(10400) :: l14at
    1157             integer*4 dimension(10400) :: ixatvw
    1158             integer*4 dimension(10400) :: ixat14
    1159             real*8 dimension(800) :: olvlvr
    1160             real*8 dimension(800) :: vlvr
    1161             real*8 dimension(800) :: axvr
    1162             real*8 :: beta
    1163             real*8 dimension(18,18) :: c_f
    1164             real*8 dimension(18,18) :: a_f
    1165             real*8 dimension(4,6) :: chb_f
    1166             real*8 dimension(4,6) :: ahb_f
    1167             real*8 dimension(19) :: e0to_f
    1168             real*8 dimension(19) :: sgto_f
    1169             real*8 dimension(19) :: rnto_f
    1170             real*8 :: plt_f
    1171             real*8 :: slp_f
    1172             real*8 :: cohb_f
     1725            integer dimension(10) :: nvwml
     1726            integer dimension(10) :: ivwml1
     1727            integer dimension(10) :: n14ml
     1728            integer dimension(10) :: i14ml1
     1729            integer dimension(2600) :: ivwat1
     1730            integer dimension(2600) :: ivwat2
     1731            integer dimension(2600) :: i14at1
     1732            integer dimension(2600) :: i14at2
     1733            integer dimension(10400) :: lvwat1
     1734            integer dimension(10400) :: lvwat2
     1735            integer dimension(10400) :: l14at
     1736            integer dimension(10400) :: ixatvw
     1737            integer dimension(10400) :: ixat14
     1738            double precision dimension(800) :: olvlvr
     1739            double precision dimension(800) :: vlvr
     1740            double precision dimension(800) :: axvr
     1741            double precision :: beta
     1742            double precision dimension(18,18) :: c_f
     1743            double precision dimension(18,18) :: a_f
     1744            double precision dimension(4,6) :: chb_f
     1745            double precision dimension(4,6) :: ahb_f
     1746            double precision dimension(19) :: e0to_f
     1747            double precision dimension(19) :: sgto_f
     1748            double precision dimension(19) :: rnto_f
     1749            double precision :: plt_f
     1750            double precision :: slp_f
     1751            double precision :: cohb_f
    11731752            common /v_sol/ vdvol,asa,asap,asah
    11741753            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    12291808            integer*4 intent(out) :: mhb
    12301809            integer*4 :: ipr
    1231             real*8 :: vdvol
    1232             real*8 :: asa
    1233             real*8 :: asap
    1234             real*8 :: asah
    1235             real*8 dimension(2600) :: cgat
    1236             real*8 dimension(2600) :: xbaat
    1237             real*8 dimension(2600) :: ybaat
    1238             real*8 dimension(2600) :: zbaat
    1239             real*8 dimension(2600) :: baat
    1240             real*8 dimension(2600) :: snbaat
    1241             real*8 dimension(2600) :: csbaat
    1242             real*8 dimension(2600) :: xtoat
    1243             real*8 dimension(2600) :: ytoat
    1244             real*8 dimension(2600) :: ztoat
    1245             real*8 dimension(2600) :: toat
    1246             real*8 dimension(2600) :: sntoat
    1247             real*8 dimension(2600) :: cstoat
    1248             real*8 dimension(2600) :: blat
    1249             real*8 dimension(2602) :: xat
    1250             real*8 dimension(2602) :: yat
    1251             real*8 dimension(2602) :: zat
    1252             integer*4 dimension(100,100) :: ijcont
    1253             integer*4 dimension(100) :: ind_alf
     1810            double precision :: vdvol
     1811            double precision :: asa
     1812            double precision :: asap
     1813            double precision :: asah
     1814            integer dimension(2600) :: cgat
     1815            double precision dimension(2600) :: xbaat
     1816            double precision dimension(2600) :: ybaat
     1817            double precision dimension(2600) :: zbaat
     1818            double precision dimension(2600) :: baat
     1819            double precision dimension(2600) :: snbaat
     1820            double precision dimension(2600) :: csbaat
     1821            double precision dimension(2600) :: xtoat
     1822            double precision dimension(2600) :: ytoat
     1823            double precision dimension(2600) :: ztoat
     1824            double precision dimension(2600) :: toat
     1825            double precision dimension(2600) :: sntoat
     1826            double precision dimension(2600) :: cstoat
     1827            double precision dimension(2600) :: blat
     1828            double precision dimension(2602) :: xat
     1829            double precision dimension(2602) :: yat
     1830            double precision dimension(2602) :: zat
     1831            integer dimension(100,100) :: ijcont
     1832            integer dimension(100) :: ind_alf
    12541833            logical dimension(18) :: do_s
    12551834            logical dimension(18) :: ac_s
    12561835            character dimension(500,4) :: nmrt
    12571836            character dimension(1000,3) :: nmvrrt
    1258             integer*4 :: nvr
    1259             real*8 dimension(9,18) :: coef_sl
    1260             real*8 dimension(9,18) :: rad_vdw
    1261             real*8 dimension(100) :: surfres
    1262             integer*4 :: ntyhb
    1263             integer*4 dimension(100) :: ixtyhb
    1264             integer*4 dimension(100) :: nutyhb
    1265             integer*4 dimension(10,10) :: mmhb
    1266             character dimension(4,2600) :: nmat
    1267             integer*4 :: lunlib
    1268             integer*4 :: lunseq
    1269             integer*4 :: lunchg
    1270             integer*4 :: lunvar
    1271             integer*4 :: lunrst
     1837            integer :: nvr
     1838            double precision dimension(9,18) :: coef_sl
     1839            double precision dimension(9,18) :: rad_vdw
     1840            double precision dimension(100) :: surfres
     1841            integer :: ntyhb
     1842            integer dimension(100) :: ixtyhb
     1843            integer dimension(100) :: nutyhb
     1844            integer dimension(10,10) :: mmhb
     1845            character dimension(2600,4) :: nmat
     1846            integer :: lunlib
     1847            integer :: lunseq
     1848            integer :: lunchg
     1849            integer :: lunvar
     1850            integer :: lunrst
    12721851            logical dimension(800) :: isrfvr
    1273             real*8 dimension(500) :: pbrt
    1274             real*8 dimension(1000) :: vuvrrt
    1275             real*8 dimension(1000) :: dvvrrt
    1276             integer*4 dimension(2600) :: ityat
    1277             integer*4 dimension(2600) :: iowat
    1278             integer*4 dimension(2600) :: iyowat
    1279             integer*4 dimension(2600) :: nbdat
    1280             integer*4 dimension(3,2600) :: ibdat
    1281             integer*4 dimension(3,2600) :: iybdat
    1282             integer*4 dimension(2600) :: ixmsat
    1283             real*8 :: ehm
    1284             real*8 dimension(18) :: atpl
    1285             real*8 dimension(18) :: efel
    1286             real*8 dimension(18) :: emin
    1287             real*8 dimension(18) :: rmin
    1288             real*8 dimension(4,6) :: chb_s
    1289             real*8 dimension(4,6) :: ahb_s
    1290             real*8 dimension(19) :: e0to_s
    1291             real*8 dimension(19) :: sgto_s
    1292             real*8 dimension(19) :: rnto_s
    1293             real*8 :: eps_s
    1294             real*8 dimension(2000,3) :: spoint
     1852            double precision dimension(500) :: pbrt
     1853            double precision dimension(1000) :: vuvrrt
     1854            double precision dimension(1000) :: dvvrrt
     1855            integer dimension(2600) :: ityat
     1856            integer dimension(2600) :: iowat
     1857            integer dimension(2600) :: iyowat
     1858            integer dimension(2600) :: nbdat
     1859            integer dimension(3,2600) :: ibdat
     1860            integer dimension(3,2600) :: iybdat
     1861            integer dimension(2600) :: ixmsat
     1862            double precision :: ehm
     1863            double precision dimension(18) :: atpl
     1864            double precision dimension(18) :: efel
     1865            double precision dimension(18) :: emin
     1866            double precision dimension(18) :: rmin
     1867            double precision dimension(4,6) :: chb_s
     1868            double precision dimension(4,6) :: ahb_s
     1869            double precision dimension(19) :: e0to_s
     1870            double precision dimension(19) :: sgto_s
     1871            double precision dimension(19) :: rnto_s
     1872            double precision :: eps_s
     1873            double precision dimension(2000,3) :: spoint
    12951874            logical dimension(18) :: do_f
    12961875            logical dimension(18) :: ac_f
    … …  
    13001879            character*80 :: varfil
    13011880            character*80 :: rstfil
    1302             integer*4 :: ntlml
    1303             integer*4 dimension(10) :: irsml1
    1304             integer*4 dimension(10) :: irsml2
    1305             integer*4 dimension(10) :: ivrml1
    1306             integer*4 dimension(10) :: nvrml
    1307             integer*4 dimension(10) :: imsml1
    1308             integer*4 dimension(10) :: nmsml
    1309             integer*4 dimension(10) :: iadml1
    1310             integer*4 dimension(10) :: nadml
    1311             integer*4 dimension(3,10) :: ixrfpt
    1312             integer*4 dimension(2600) :: ixatp
    1313             integer*4 :: ireg
    1314             real*8 dimension(100) :: blath
    1315             real*8 dimension(100) :: baath
    1316             real*8 dimension(100) :: toath
    1317             real*8 dimension(100) :: cgath
    1318             integer*4 dimension(100,100) :: iref
    1319             integer*4 :: nci
     1881            integer :: ntlml
     1882            integer dimension(10) :: irsml1
     1883            integer dimension(10) :: irsml2
     1884            integer dimension(10) :: ivrml1
     1885            integer dimension(10) :: nvrml
     1886            integer dimension(10) :: imsml1
     1887            integer dimension(10) :: nmsml
     1888            integer dimension(10) :: iadml1
     1889            integer dimension(10) :: nadml
     1890            integer dimension(3,10) :: ixrfpt
     1891            integer dimension(2600) :: ixatp
     1892            integer :: ireg
     1893            double precision dimension(100) :: blath
     1894            double precision dimension(100) :: baath
     1895            double precision dimension(100) :: toath
     1896            double precision dimension(100) :: cgath
     1897            integer dimension(100,100) :: iref
     1898            integer :: nci
    13201899            logical :: flex
    13211900            logical :: tesgrd
    13221901            logical :: sh2
    13231902            logical :: epsd
    1324             integer*4 :: ientyp
    1325             real*8 :: rgyh
    1326             real*8 :: rgyp
    1327             integer*4 :: idloa
    1328             integer*4 :: idloz
    1329             integer*4 :: idupa
    1330             integer*4 :: idupz
     1903            integer :: ientyp
     1904            double precision :: rgyh
     1905            double precision :: rgyp
     1906            integer :: idloa
     1907            integer :: idloz
     1908            integer :: idupa
     1909            integer :: idupz
    13311910            integer :: myrank
    13321911            integer :: no
    … …  
    13351914            character dimension(100,4) :: nmath
    13361915            character dimension(100,3) :: nmvrh
    1337             integer*4 dimension(100) :: ityath
    1338             integer*4 dimension(100) :: iowath
    1339             integer*4 dimension(100) :: iyowath
    1340             integer*4 dimension(100) :: nbdath
    1341             integer*4 dimension(3,100) :: ibdath
    1342             integer*4 dimension(3,100) :: iybdath
    1343             integer*4 dimension(100) :: ityvrh
    1344             integer*4 dimension(100) :: iclvrh
    1345             integer*4 dimension(100) :: iatvrh
     1916            integer dimension(100) :: ityath
     1917            integer dimension(100) :: iowath
     1918            integer dimension(100) :: iyowath
     1919            integer dimension(100) :: nbdath
     1920            integer dimension(3,100) :: ibdath
     1921            integer dimension(3,100) :: iybdath
     1922            integer dimension(100) :: ityvrh
     1923            integer dimension(100) :: iclvrh
     1924            integer dimension(100) :: iatvrh
    13461925            character dimension(100,4) :: seq
    1347             real*8 dimension(2600) :: rvdw
    1348             real*8 dimension(2600) :: sigma
    1349             real*8 dimension(2600,3) :: gradan
    1350             integer*4 dimension(18,18) :: ihbty
    1351             integer*4 :: npnt
     1926            double precision dimension(2600) :: rvdw
     1927            double precision dimension(2600) :: sigma
     1928            double precision dimension(2600,3) :: gradan
     1929            integer dimension(18,18) :: ihbty
     1930            integer :: npnt
    13521931            character dimension(10,80) :: nmml
    1353             real*8 dimension(18,18) :: cij
    1354             real*8 dimension(18,18) :: aij
    1355             real*8 dimension(18,18) :: a14
    1356             real*8 dimension(18,18) :: chb
    1357             real*8 dimension(18,18) :: ahb
    1358             real*8 dimension(19) :: e0to
    1359             real*8 dimension(19) :: sgto
    1360             real*8 dimension(19) :: rnto
    1361             real*8 dimension(19) :: esnto
    1362             real*8 :: conv
    1363             real*8 :: plt
    1364             real*8 :: slp
    1365             real*8 :: cohb
    1366             integer*4 dimension(100) :: iatrs1
    1367             integer*4 dimension(100) :: iatrs2
    1368             integer*4 dimension(100) :: ixatrs
    1369             integer*4 dimension(100) :: ivrrs1
    1370             integer*4 dimension(100) :: nvrrs
    1371             integer*4 :: ntlrt
    1372             integer*4 :: ntlsu
    1373             integer*4 dimension(500) :: i1vrrt
    1374             integer*4 dimension(500) :: i2vrrt
    1375             integer*4 dimension(4800) :: iprtsu
    1376             integer*4 dimension(800) :: i1rtsu
    1377             integer*4 dimension(800) :: nrtsu
    1378             integer*4 dimension(800) :: i1vrsu
    1379             integer*4 dimension(800) :: i2vrsu
    1380             integer*4 dimension(800) :: ipvrsu
    1381             real*8 dimension(3,10) :: rfpt
    1382             real*8 dimension(6,10) :: gbpr
    1383             real*8 dimension(3,10) :: xrfax
    1384             real*8 dimension(3,10) :: yrfax
    1385             real*8 dimension(3,10) :: zrfax
     1932            double precision dimension(18,18) :: cij
     1933            double precision dimension(18,18) :: aij
     1934            double precision dimension(18,18) :: a14
     1935            double precision dimension(18,18) :: chb
     1936            double precision dimension(18,18) :: ahb
     1937            double precision dimension(19) :: e0to
     1938            double precision dimension(19) :: sgto
     1939            double precision dimension(19) :: rnto
     1940            double precision dimension(19) :: esnto
     1941            double precision :: conv
     1942            double precision :: plt
     1943            double precision :: slp
     1944            double precision :: cohb
     1945            integer dimension(100) :: iatrs1
     1946            integer dimension(100) :: iatrs2
     1947            integer dimension(100) :: ixatrs
     1948            integer dimension(100) :: ivrrs1
     1949            integer dimension(100) :: nvrrs
     1950            integer :: ntlrt
     1951            integer :: ntlsu
     1952            integer dimension(500) :: i1vrrt
     1953            integer dimension(500) :: i2vrrt
     1954            integer dimension(4800) :: iprtsu
     1955            integer dimension(800) :: i1rtsu
     1956            integer dimension(800) :: nrtsu
     1957            integer dimension(800) :: i1vrsu
     1958            integer dimension(800) :: i2vrsu
     1959            integer dimension(800) :: ipvrsu
     1960            double precision dimension(3,10) :: rfpt
     1961            double precision dimension(6,10) :: gbpr
     1962            double precision dimension(3,10) :: xrfax
     1963            double precision dimension(3,10) :: yrfax
     1964            double precision dimension(3,10) :: zrfax
    13861965            logical dimension(800) :: fxvr
    1387             real*8 :: eyel
    1388             real*8 :: eyvw
    1389             real*8 :: eyhb
    1390             real*8 :: eyvr
    1391             real*8 :: eysm
    1392             real*8 :: eysl
    1393             real*8 :: eyrg
    1394             real*8 :: eyslh
    1395             real*8 :: eyslp
    1396             real*8 :: eyab
    1397             real*8 :: eysmi
    1398             real*8 :: eyhbi
    1399             real*8 :: eyeli
    1400             real*8 :: eyvwi
    1401             real*8 dimension(800) :: gdeyvr
    1402             real*8 dimension(800) :: gdeyrg
    1403             real*8 dimension(800) :: gdeysl
    1404             real*8 dimension(60) :: gdeygb
    1405             real*8 :: wtey
    1406             real*8 :: wtrg
    1407             integer*4 dimension(800) :: iatvr
    1408             integer*4 dimension(800) :: ityvr
    1409             integer*4 dimension(800) :: iclvr
    1410             integer*4 dimension(800) :: iorvr
    1411             integer*4 dimension(800) :: imsvr1
    1412             integer*4 dimension(800) :: imsvr2
    1413             integer*4 dimension(2400) :: latms1
    1414             integer*4 dimension(2400) :: latms2
    1415             integer*4 dimension(800) :: iadvr1
    1416             integer*4 dimension(800) :: iadvr2
    1417             integer*4 dimension(800) :: ladvr
    1418             integer*4 dimension(800) :: idvr
     1966            double precision :: eyel
     1967            double precision :: eyvw
     1968            double precision :: eyhb
     1969            double precision :: eyvr
     1970            double precision :: eysm
     1971            double precision :: eysl
     1972            double precision :: eyrg
     1973            double precision :: eyslh
     1974            double precision :: eyslp
     1975            double precision :: eyab
     1976            double precision :: eysmi
     1977            double precision :: eyhbi
     1978            double precision :: eyeli
     1979            double precision :: eyvwi
     1980            double precision dimension(800) :: gdeyvr
     1981            double precision dimension(800) :: gdeyrg
     1982            double precision dimension(800) :: gdeysl
     1983            double precision dimension(60) :: gdeygb
     1984            double precision :: wtey
     1985            double precision :: wtrg
     1986            integer dimension(800) :: iatvr
     1987            integer dimension(800) :: ityvr
     1988            integer dimension(800) :: iclvr
     1989            integer dimension(800) :: iorvr
     1990            integer dimension(800) :: imsvr1
     1991            integer dimension(800) :: imsvr2
     1992            integer dimension(2400) :: latms1
     1993            integer dimension(2400) :: latms2
     1994            integer dimension(800) :: iadvr1
     1995            integer dimension(800) :: iadvr2
     1996            integer dimension(800) :: ladvr
     1997            integer dimension(800) :: idvr
    14191998            integer :: enysolct
    1420             character dimension(3,800) :: nmvr
    1421             real*8 :: boxsize
     1999            character dimension(800,3) :: nmvr
     2000            double precision :: boxsize
    14222001            integer :: seed
    1423             character*100 :: zimm
    1424             integer*4 :: itysol
     2002            character*mxrs :: zimm
     2003            integer :: itysol
    14252004            logical :: isolscl
    1426             real*8 dimension(100) :: rsstrg
     2005            double precision dimension(100) :: rsstrg
    14272006            character dimension(35,4) :: rsnmcd
    14282007            character dimension(35) :: onltcd
    … …  
    14302009            integer :: upchswitch
    14312010            double precision :: bgsprob
    1432             integer*4 dimension(10) :: nvwml
    1433             integer*4 dimension(10) :: ivwml1
    1434             integer*4 dimension(10) :: n14ml
    1435             integer*4 dimension(10) :: i14ml1
    1436             integer*4 dimension(2600) :: ivwat1
    1437             integer*4 dimension(2600) :: ivwat2
    1438             integer*4 dimension(2600) :: i14at1
    1439             integer*4 dimension(2600) :: i14at2
    1440             integer*4 dimension(10400) :: lvwat1
    1441             integer*4 dimension(10400) :: lvwat2
    1442             integer*4 dimension(10400) :: l14at
    1443             integer*4 dimension(10400) :: ixatvw
    1444             integer*4 dimension(10400) :: ixat14
    1445             real*8 dimension(800) :: olvlvr
    1446             real*8 dimension(800) :: vlvr
    1447             real*8 dimension(800) :: axvr
    1448             real*8 :: beta
    1449             real*8 dimension(18,18) :: c_f
    1450             real*8 dimension(18,18) :: a_f
    1451             real*8 dimension(4,6) :: chb_f
    1452             real*8 dimension(4,6) :: ahb_f
    1453             real*8 dimension(19) :: e0to_f
    1454             real*8 dimension(19) :: sgto_f
    1455             real*8 dimension(19) :: rnto_f
    1456             real*8 :: plt_f
    1457             real*8 :: slp_f
    1458             real*8 :: cohb_f
     2011            integer dimension(10) :: nvwml
     2012            integer dimension(10) :: ivwml1
     2013            integer dimension(10) :: n14ml
     2014            integer dimension(10) :: i14ml1
     2015            integer dimension(2600) :: ivwat1
     2016            integer dimension(2600) :: ivwat2
     2017            integer dimension(2600) :: i14at1
     2018            integer dimension(2600) :: i14at2
     2019            integer dimension(10400) :: lvwat1
     2020            integer dimension(10400) :: lvwat2
     2021            integer dimension(10400) :: l14at
     2022            integer dimension(10400) :: ixatvw
     2023            integer dimension(10400) :: ixat14
     2024            double precision dimension(800) :: olvlvr
     2025            double precision dimension(800) :: vlvr
     2026            double precision dimension(800) :: axvr
     2027            double precision :: beta
     2028            double precision dimension(18,18) :: c_f
     2029            double precision dimension(18,18) :: a_f
     2030            double precision dimension(4,6) :: chb_f
     2031            double precision dimension(4,6) :: ahb_f
     2032            double precision dimension(19) :: e0to_f
     2033            double precision dimension(19) :: sgto_f
     2034            double precision dimension(19) :: rnto_f
     2035            double precision :: plt_f
     2036            double precision :: slp_f
     2037            double precision :: cohb_f
    14592038            common /v_sol/ vdvol,asa,asap,asah
    14602039            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    15132092        subroutine interhbond(mhb) ! in :smmp:hbond.f
    15142093            integer*4 intent(out) :: mhb
    1515             real*8 :: vdvol
    1516             real*8 :: asa
    1517             real*8 :: asap
    1518             real*8 :: asah
    1519             real*8 dimension(2600) :: cgat
    1520             real*8 dimension(2600) :: xbaat
    1521             real*8 dimension(2600) :: ybaat
    1522             real*8 dimension(2600) :: zbaat
    1523             real*8 dimension(2600) :: baat
    1524             real*8 dimension(2600) :: snbaat
    1525             real*8 dimension(2600) :: csbaat
    1526             real*8 dimension(2600) :: xtoat
    1527             real*8 dimension(2600) :: ytoat
    1528             real*8 dimension(2600) :: ztoat
    1529             real*8 dimension(2600) :: toat
    1530             real*8 dimension(2600) :: sntoat
    1531             real*8 dimension(2600) :: cstoat
    1532             real*8 dimension(2600) :: blat
    1533             real*8 dimension(2602) :: xat
    1534             real*8 dimension(2602) :: yat
    1535             real*8 dimension(2602) :: zat
    1536             integer*4 dimension(100,100) :: ijcont
    1537             integer*4 dimension(100) :: ind_alf
     2094            double precision :: vdvol
     2095            double precision :: asa
     2096            double precision :: asap
     2097            double precision :: asah
     2098            integer dimension(2600) :: cgat
     2099            double precision dimension(2600) :: xbaat
     2100            double precision dimension(2600) :: ybaat
     2101            double precision dimension(2600) :: zbaat
     2102            double precision dimension(2600) :: baat
     2103            double precision dimension(2600) :: snbaat
     2104            double precision dimension(2600) :: csbaat
     2105            double precision dimension(2600) :: xtoat
     2106            double precision dimension(2600) :: ytoat
     2107            double precision dimension(2600) :: ztoat
     2108            double precision dimension(2600) :: toat
     2109            double precision dimension(2600) :: sntoat
     2110            double precision dimension(2600) :: cstoat
     2111            double precision dimension(2600) :: blat
     2112            double precision dimension(2602) :: xat
     2113            double precision dimension(2602) :: yat
     2114            double precision dimension(2602) :: zat
     2115            integer dimension(100,100) :: ijcont
     2116            integer dimension(100) :: ind_alf
    15382117            logical dimension(18) :: do_s
    15392118            logical dimension(18) :: ac_s
    15402119            character dimension(500,4) :: nmrt
    15412120            character dimension(1000,3) :: nmvrrt
    1542             integer*4 :: nvr
    1543             real*8 dimension(9,18) :: coef_sl
    1544             real*8 dimension(9,18) :: rad_vdw
    1545             real*8 dimension(100) :: surfres
    1546             integer*4 :: ntyhb
    1547             integer*4 dimension(100) :: ixtyhb
    1548             integer*4 dimension(100) :: nutyhb
    1549             integer*4 dimension(10,10) :: mmhb
    1550             character dimension(4,2600) :: nmat
    1551             integer*4 :: lunlib
    1552             integer*4 :: lunseq
    1553             integer*4 :: lunchg
    1554             integer*4 :: lunvar
    1555             integer*4 :: lunrst
     2121            integer :: nvr
     2122            double precision dimension(9,18) :: coef_sl
     2123            double precision dimension(9,18) :: rad_vdw
     2124            double precision dimension(100) :: surfres
     2125            integer :: ntyhb
     2126            integer dimension(100) :: ixtyhb
     2127            integer dimension(100) :: nutyhb
     2128            integer dimension(10,10) :: mmhb
     2129            character dimension(2600,4) :: nmat
     2130            integer :: lunlib
     2131            integer :: lunseq
     2132            integer :: lunchg
     2133            integer :: lunvar
     2134            integer :: lunrst
    15562135            logical dimension(800) :: isrfvr
    1557             real*8 dimension(500) :: pbrt
    1558             real*8 dimension(1000) :: vuvrrt
    1559             real*8 dimension(1000) :: dvvrrt
    1560             integer*4 dimension(2600) :: ityat
    1561             integer*4 dimension(2600) :: iowat
    1562             integer*4 dimension(2600) :: iyowat
    1563             integer*4 dimension(2600) :: nbdat
    1564             integer*4 dimension(3,2600) :: ibdat
    1565             integer*4 dimension(3,2600) :: iybdat
    1566             integer*4 dimension(2600) :: ixmsat
    1567             real*8 :: ehm
    1568             real*8 dimension(18) :: atpl
    1569             real*8 dimension(18) :: efel
    1570             real*8 dimension(18) :: emin
    1571             real*8 dimension(18) :: rmin
    1572             real*8 dimension(4,6) :: chb_s
    1573             real*8 dimension(4,6) :: ahb_s
    1574             real*8 dimension(19) :: e0to_s
    1575             real*8 dimension(19) :: sgto_s
    1576             real*8 dimension(19) :: rnto_s
    1577             real*8 :: eps_s
    1578             real*8 dimension(2000,3) :: spoint
     2136            double precision dimension(500) :: pbrt
     2137            double precision dimension(1000) :: vuvrrt
     2138            double precision dimension(1000) :: dvvrrt
     2139            integer dimension(2600) :: ityat
     2140            integer dimension(2600) :: iowat
     2141            integer dimension(2600) :: iyowat
     2142            integer dimension(2600) :: nbdat
     2143            integer dimension(3,2600) :: ibdat
     2144            integer dimension(3,2600) :: iybdat
     2145            integer dimension(2600) :: ixmsat
     2146            double precision :: ehm
     2147            double precision dimension(18) :: atpl
     2148            double precision dimension(18) :: efel
     2149            double precision dimension(18) :: emin
     2150            double precision dimension(18) :: rmin
     2151            double precision dimension(4,6) :: chb_s
     2152            double precision dimension(4,6) :: ahb_s
     2153            double precision dimension(19) :: e0to_s
     2154            double precision dimension(19) :: sgto_s
     2155            double precision dimension(19) :: rnto_s
     2156            double precision :: eps_s
     2157            double precision dimension(2000,3) :: spoint
    15792158            logical dimension(18) :: do_f
    15802159            logical dimension(18) :: ac_f
    … …  
    15842163            character*80 :: varfil
    15852164            character*80 :: rstfil
    1586             integer*4 :: ntlml
    1587             integer*4 dimension(10) :: irsml1
    1588             integer*4 dimension(10) :: irsml2
    1589             integer*4 dimension(10) :: ivrml1
    1590             integer*4 dimension(10) :: nvrml
    1591             integer*4 dimension(10) :: imsml1
    1592             integer*4 dimension(10) :: nmsml
    1593             integer*4 dimension(10) :: iadml1
    1594             integer*4 dimension(10) :: nadml
    1595             integer*4 dimension(3,10) :: ixrfpt
    1596             integer*4 dimension(2600) :: ixatp
    1597             integer*4 :: ireg
    1598             real*8 dimension(100) :: blath
    1599             real*8 dimension(100) :: baath
    1600             real*8 dimension(100) :: toath
    1601             real*8 dimension(100) :: cgath
    1602             integer*4 dimension(100,100) :: iref
    1603             integer*4 :: nci
     2165            integer :: ntlml
     2166            integer dimension(10) :: irsml1
     2167            integer dimension(10) :: irsml2
     2168            integer dimension(10) :: ivrml1
     2169            integer dimension(10) :: nvrml
     2170            integer dimension(10) :: imsml1
     2171            integer dimension(10) :: nmsml
     2172            integer dimension(10) :: iadml1
     2173            integer dimension(10) :: nadml
     2174            integer dimension(3,10) :: ixrfpt
     2175            integer dimension(2600) :: ixatp
     2176            integer :: ireg
     2177            double precision dimension(100) :: blath
     2178            double precision dimension(100) :: baath
     2179            double precision dimension(100) :: toath
     2180            double precision dimension(100) :: cgath
     2181            integer dimension(100,100) :: iref
     2182            integer :: nci
    16042183            logical :: flex
    16052184            logical :: tesgrd
    16062185            logical :: sh2
    16072186            logical :: epsd
    1608             integer*4 :: ientyp
    1609             real*8 :: rgyh
    1610             real*8 :: rgyp
    1611             integer*4 :: idloa
    1612             integer*4 :: idloz
    1613             integer*4 :: idupa
    1614             integer*4 :: idupz
     2187            integer :: ientyp
     2188            double precision :: rgyh
     2189            double precision :: rgyp
     2190            integer :: idloa
     2191            integer :: idloz
     2192            integer :: idupa
     2193            integer :: idupz
    16152194            integer :: myrank
    16162195            integer :: no
    … …  
    16192198            character dimension(100,4) :: nmath
    16202199            character dimension(100,3) :: nmvrh
    1621             integer*4 dimension(100) :: ityath
    1622             integer*4 dimension(100) :: iowath
    1623             integer*4 dimension(100) :: iyowath
    1624             integer*4 dimension(100) :: nbdath
    1625             integer*4 dimension(3,100) :: ibdath
    1626             integer*4 dimension(3,100) :: iybdath
    1627             integer*4 dimension(100) :: ityvrh
    1628             integer*4 dimension(100) :: iclvrh
    1629             integer*4 dimension(100) :: iatvrh
     2200            integer dimension(100) :: ityath
     2201            integer dimension(100) :: iowath
     2202            integer dimension(100) :: iyowath
     2203            integer dimension(100) :: nbdath
     2204            integer dimension(3,100) :: ibdath
     2205            integer dimension(3,100) :: iybdath
     2206            integer dimension(100) :: ityvrh
     2207            integer dimension(100) :: iclvrh
     2208            integer dimension(100) :: iatvrh
    16302209            character dimension(100,4) :: seq
    1631             real*8 dimension(2600) :: rvdw
    1632             real*8 dimension(2600) :: sigma
    1633             real*8 dimension(2600,3) :: gradan
    1634             integer*4 dimension(18,18) :: ihbty
    1635             integer*4 :: npnt
     2210            double precision dimension(2600) :: rvdw
     2211            double precision dimension(2600) :: sigma
     2212            double precision dimension(2600,3) :: gradan
     2213            integer dimension(18,18) :: ihbty
     2214            integer :: npnt
    16362215            character dimension(10,80) :: nmml
    1637             real*8 dimension(18,18) :: cij
    1638             real*8 dimension(18,18) :: aij
    1639             real*8 dimension(18,18) :: a14
    1640             real*8 dimension(18,18) :: chb
    1641             real*8 dimension(18,18) :: ahb
    1642             real*8 dimension(19) :: e0to
    1643             real*8 dimension(19) :: sgto
    1644             real*8 dimension(19) :: rnto
    1645             real*8 dimension(19) :: esnto
    1646             real*8 :: conv
    1647             real*8 :: plt
    1648             real*8 :: slp
    1649             real*8 :: cohb
    1650             integer*4 dimension(100) :: iatrs1
    1651             integer*4 dimension(100) :: iatrs2
    1652             integer*4 dimension(100) :: ixatrs
    1653             integer*4 dimension(100) :: ivrrs1
    1654             integer*4 dimension(100) :: nvrrs
    1655             integer*4 :: ntlrt
    1656             integer*4 :: ntlsu
    1657             integer*4 dimension(500) :: i1vrrt
    1658             integer*4 dimension(500) :: i2vrrt
    1659             integer*4 dimension(4800) :: iprtsu
    1660             integer*4 dimension(800) :: i1rtsu
    1661             integer*4 dimension(800) :: nrtsu
    1662             integer*4 dimension(800) :: i1vrsu
    1663             integer*4 dimension(800) :: i2vrsu
    1664             integer*4 dimension(800) :: ipvrsu
    1665             real*8 dimension(3,10) :: rfpt
    1666             real*8 dimension(6,10) :: gbpr
    1667             real*8 dimension(3,10) :: xrfax
    1668             real*8 dimension(3,10) :: yrfax
    1669             real*8 dimension(3,10) :: zrfax
     2216            double precision dimension(18,18) :: cij
     2217            double precision dimension(18,18) :: aij
     2218            double precision dimension(18,18) :: a14
     2219            double precision dimension(18,18) :: chb
     2220            double precision dimension(18,18) :: ahb
     2221            double precision dimension(19) :: e0to
     2222            double precision dimension(19) :: sgto
     2223            double precision dimension(19) :: rnto
     2224            double precision dimension(19) :: esnto
     2225            double precision :: conv
     2226            double precision :: plt
     2227            double precision :: slp
     2228            double precision :: cohb
     2229            integer dimension(100) :: iatrs1
     2230            integer dimension(100) :: iatrs2
     2231            integer dimension(100) :: ixatrs
     2232            integer dimension(100) :: ivrrs1
     2233            integer dimension(100) :: nvrrs
     2234            integer :: ntlrt
     2235            integer :: ntlsu
     2236            integer dimension(500) :: i1vrrt
     2237            integer dimension(500) :: i2vrrt
     2238            integer dimension(4800) :: iprtsu
     2239            integer dimension(800) :: i1rtsu
     2240            integer dimension(800) :: nrtsu
     2241            integer dimension(800) :: i1vrsu
     2242            integer dimension(800) :: i2vrsu
     2243            integer dimension(800) :: ipvrsu
     2244            double precision dimension(3,10) :: rfpt
     2245            double precision dimension(6,10) :: gbpr
     2246            double precision dimension(3,10) :: xrfax
     2247            double precision dimension(3,10) :: yrfax
     2248            double precision dimension(3,10) :: zrfax
    16702249            logical dimension(800) :: fxvr
    1671             real*8 :: eyel
    1672             real*8 :: eyvw
    1673             real*8 :: eyhb
    1674             real*8 :: eyvr
    1675             real*8 :: eysm
    1676             real*8 :: eysl
    1677             real*8 :: eyrg
    1678             real*8 :: eyslh
    1679             real*8 :: eyslp
    1680             real*8 :: eyab
    1681             real*8 :: eysmi
    1682             real*8 :: eyhbi
    1683             real*8 :: eyeli
    1684             real*8 :: eyvwi
    1685             real*8 dimension(800) :: gdeyvr
    1686             real*8 dimension(800) :: gdeyrg
    1687             real*8 dimension(800) :: gdeysl
    1688             real*8 dimension(60) :: gdeygb
    1689             real*8 :: wtey
    1690             real*8 :: wtrg
    1691             integer*4 dimension(800) :: iatvr
    1692             integer*4 dimension(800) :: ityvr
    1693             integer*4 dimension(800) :: iclvr
    1694             integer*4 dimension(800) :: iorvr
    1695             integer*4 dimension(800) :: imsvr1
    1696             integer*4 dimension(800) :: imsvr2
    1697             integer*4 dimension(2400) :: latms1
    1698             integer*4 dimension(2400) :: latms2
    1699             integer*4 dimension(800) :: iadvr1
    1700             integer*4 dimension(800) :: iadvr2
    1701             integer*4 dimension(800) :: ladvr
    1702             integer*4 dimension(800) :: idvr
     2250            double precision :: eyel
     2251            double precision :: eyvw
     2252            double precision :: eyhb
     2253            double precision :: eyvr
     2254            double precision :: eysm
     2255            double precision :: eysl
     2256            double precision :: eyrg
     2257            double precision :: eyslh
     2258            double precision :: eyslp
     2259            double precision :: eyab
     2260            double precision :: eysmi
     2261            double precision :: eyhbi
     2262            double precision :: eyeli
     2263            double precision :: eyvwi
     2264            double precision dimension(800) :: gdeyvr
     2265            double precision dimension(800) :: gdeyrg
     2266            double precision dimension(800) :: gdeysl
     2267            double precision dimension(60) :: gdeygb
     2268            double precision :: wtey
     2269            double precision :: wtrg
     2270            integer dimension(800) :: iatvr
     2271            integer dimension(800) :: ityvr
     2272            integer dimension(800) :: iclvr
     2273            integer dimension(800) :: iorvr
     2274            integer dimension(800) :: imsvr1
     2275            integer dimension(800) :: imsvr2
     2276            integer dimension(2400) :: latms1
     2277            integer dimension(2400) :: latms2
     2278            integer dimension(800) :: iadvr1
     2279            integer dimension(800) :: iadvr2
     2280            integer dimension(800) :: ladvr
     2281            integer dimension(800) :: idvr
    17032282            integer :: enysolct
    1704             character dimension(3,800) :: nmvr
    1705             real*8 :: boxsize
     2283            character dimension(800,3) :: nmvr
     2284            double precision :: boxsize
    17062285            integer :: seed
    1707             character*100 :: zimm
    1708             integer*4 :: itysol
     2286            character*mxrs :: zimm
     2287            integer :: itysol
    17092288            logical :: isolscl
    1710             real*8 dimension(100) :: rsstrg
     2289            double precision dimension(100) :: rsstrg
    17112290            character dimension(35,4) :: rsnmcd
    17122291            character dimension(35) :: onltcd
    … …  
    17142293            integer :: upchswitch
    17152294            double precision :: bgsprob
    1716             integer*4 dimension(10) :: nvwml
    1717             integer*4 dimension(10) :: ivwml1
    1718             integer*4 dimension(10) :: n14ml
    1719             integer*4 dimension(10) :: i14ml1
    1720             integer*4 dimension(2600) :: ivwat1
    1721             integer*4 dimension(2600) :: ivwat2
    1722             integer*4 dimension(2600) :: i14at1
    1723             integer*4 dimension(2600) :: i14at2
    1724             integer*4 dimension(10400) :: lvwat1
    1725             integer*4 dimension(10400) :: lvwat2
    1726             integer*4 dimension(10400) :: l14at
    1727             integer*4 dimension(10400) :: ixatvw
    1728             integer*4 dimension(10400) :: ixat14
    1729             real*8 dimension(800) :: olvlvr
    1730             real*8 dimension(800) :: vlvr
    1731             real*8 dimension(800) :: axvr
    1732             real*8 :: beta
    1733             real*8 dimension(18,18) :: c_f
    1734             real*8 dimension(18,18) :: a_f
    1735             real*8 dimension(4,6) :: chb_f
    1736             real*8 dimension(4,6) :: ahb_f
    1737             real*8 dimension(19) :: e0to_f
    1738             real*8 dimension(19) :: sgto_f
    1739             real*8 dimension(19) :: rnto_f
    1740             real*8 :: plt_f
    1741             real*8 :: slp_f
    1742             real*8 :: cohb_f
     2295            integer dimension(10) :: nvwml
     2296            integer dimension(10) :: ivwml1
     2297            integer dimension(10) :: n14ml
     2298            integer dimension(10) :: i14ml1
     2299            integer dimension(2600) :: ivwat1
     2300            integer dimension(2600) :: ivwat2
     2301            integer dimension(2600) :: i14at1
     2302            integer dimension(2600) :: i14at2
     2303            integer dimension(10400) :: lvwat1
     2304            integer dimension(10400) :: lvwat2
     2305            integer dimension(10400) :: l14at
     2306            integer dimension(10400) :: ixatvw
     2307            integer dimension(10400) :: ixat14
     2308            double precision dimension(800) :: olvlvr
     2309            double precision dimension(800) :: vlvr
     2310            double precision dimension(800) :: axvr
     2311            double precision :: beta
     2312            double precision dimension(18,18) :: c_f
     2313            double precision dimension(18,18) :: a_f
     2314            double precision dimension(4,6) :: chb_f
     2315            double precision dimension(4,6) :: ahb_f
     2316            double precision dimension(19) :: e0to_f
     2317            double precision dimension(19) :: sgto_f
     2318            double precision dimension(19) :: rnto_f
     2319            double precision :: plt_f
     2320            double precision :: slp_f
     2321            double precision :: cohb_f
    17432322            common /v_sol/ vdvol,asa,asap,asah
    17442323            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    18002379            integer*4 intent(out) :: nbet
    18012380            integer*4 intent(out) :: mbet
    1802             real*8 :: vdvol
    1803             real*8 :: asa
    1804             real*8 :: asap
    1805             real*8 :: asah
    1806             real*8 dimension(2600) :: cgat
    1807             real*8 dimension(2600) :: xbaat
    1808             real*8 dimension(2600) :: ybaat
    1809             real*8 dimension(2600) :: zbaat
    1810             real*8 dimension(2600) :: baat
    1811             real*8 dimension(2600) :: snbaat
    1812             real*8 dimension(2600) :: csbaat
    1813             real*8 dimension(2600) :: xtoat
    1814             real*8 dimension(2600) :: ytoat
    1815             real*8 dimension(2600) :: ztoat
    1816             real*8 dimension(2600) :: toat
    1817             real*8 dimension(2600) :: sntoat
    1818             real*8 dimension(2600) :: cstoat
    1819             real*8 dimension(2600) :: blat
    1820             real*8 dimension(2602) :: xat
    1821             real*8 dimension(2602) :: yat
    1822             real*8 dimension(2602) :: zat
    1823             integer*4 dimension(100,100) :: ijcont
    1824             integer*4 dimension(100) :: ind_alf
     2381            double precision :: vdvol
     2382            double precision :: asa
     2383            double precision :: asap
     2384            double precision :: asah
     2385            integer dimension(2600) :: cgat
     2386            double precision dimension(2600) :: xbaat
     2387            double precision dimension(2600) :: ybaat
     2388            double precision dimension(2600) :: zbaat
     2389            double precision dimension(2600) :: baat
     2390            double precision dimension(2600) :: snbaat
     2391            double precision dimension(2600) :: csbaat
     2392            double precision dimension(2600) :: xtoat
     2393            double precision dimension(2600) :: ytoat
     2394            double precision dimension(2600) :: ztoat
     2395            double precision dimension(2600) :: toat
     2396            double precision dimension(2600) :: sntoat
     2397            double precision dimension(2600) :: cstoat
     2398            double precision dimension(2600) :: blat
     2399            double precision dimension(2602) :: xat
     2400            double precision dimension(2602) :: yat
     2401            double precision dimension(2602) :: zat
     2402            integer dimension(100,100) :: ijcont
     2403            integer dimension(100) :: ind_alf
    18252404            logical dimension(18) :: do_s
    18262405            logical dimension(18) :: ac_s
    18272406            character dimension(500,4) :: nmrt
    18282407            character dimension(1000,3) :: nmvrrt
    1829             integer*4 :: nvr
    1830             real*8 dimension(9,18) :: coef_sl
    1831             real*8 dimension(9,18) :: rad_vdw
    1832             real*8 dimension(100) :: surfres
    1833             integer*4 :: ntyhb
    1834             integer*4 dimension(100) :: ixtyhb
    1835             integer*4 dimension(100) :: nutyhb
    1836             integer*4 dimension(10,10) :: mmhb
    1837             character dimension(4,2600) :: nmat
    1838             integer*4 :: lunlib
    1839             integer*4 :: lunseq
    1840             integer*4 :: lunchg
    1841             integer*4 :: lunvar
    1842             integer*4 :: lunrst
     2408            integer :: nvr
     2409            double precision dimension(9,18) :: coef_sl
     2410            double precision dimension(9,18) :: rad_vdw
     2411            double precision dimension(100) :: surfres
     2412            integer :: ntyhb
     2413            integer dimension(100) :: ixtyhb
     2414            integer dimension(100) :: nutyhb
     2415            integer dimension(10,10) :: mmhb
     2416            character dimension(2600,4) :: nmat
     2417            integer :: lunlib
     2418            integer :: lunseq
     2419            integer :: lunchg
     2420            integer :: lunvar
     2421            integer :: lunrst
    18432422            logical dimension(800) :: isrfvr
    1844             real*8 dimension(500) :: pbrt
    1845             real*8 dimension(1000) :: vuvrrt
    1846             real*8 dimension(1000) :: dvvrrt
    1847             integer*4 dimension(2600) :: ityat
    1848             integer*4 dimension(2600) :: iowat
    1849             integer*4 dimension(2600) :: iyowat
    1850             integer*4 dimension(2600) :: nbdat
    1851             integer*4 dimension(3,2600) :: ibdat
    1852             integer*4 dimension(3,2600) :: iybdat
    1853             integer*4 dimension(2600) :: ixmsat
    1854             real*8 :: ehm
    1855             real*8 dimension(18) :: atpl
    1856             real*8 dimension(18) :: efel
    1857             real*8 dimension(18) :: emin
    1858             real*8 dimension(18) :: rmin
    1859             real*8 dimension(4,6) :: chb_s
    1860             real*8 dimension(4,6) :: ahb_s
    1861             real*8 dimension(19) :: e0to_s
    1862             real*8 dimension(19) :: sgto_s
    1863             real*8 dimension(19) :: rnto_s
    1864             real*8 :: eps_s
    1865             real*8 dimension(2000,3) :: spoint
     2423            double precision dimension(500) :: pbrt
     2424            double precision dimension(1000) :: vuvrrt
     2425            double precision dimension(1000) :: dvvrrt
     2426            integer dimension(2600) :: ityat
     2427            integer dimension(2600) :: iowat
     2428            integer dimension(2600) :: iyowat
     2429            integer dimension(2600) :: nbdat
     2430            integer dimension(3,2600) :: ibdat
     2431            integer dimension(3,2600) :: iybdat
     2432            integer dimension(2600) :: ixmsat
     2433            double precision :: ehm
     2434            double precision dimension(18) :: atpl
     2435            double precision dimension(18) :: efel
     2436            double precision dimension(18) :: emin
     2437            double precision dimension(18) :: rmin
     2438            double precision dimension(4,6) :: chb_s
     2439            double precision dimension(4,6) :: ahb_s
     2440            double precision dimension(19) :: e0to_s
     2441            double precision dimension(19) :: sgto_s
     2442            double precision dimension(19) :: rnto_s
     2443            double precision :: eps_s
     2444            double precision dimension(2000,3) :: spoint
    18662445            logical dimension(18) :: do_f
    18672446            logical dimension(18) :: ac_f
    … …  
    18712450            character*80 :: varfil
    18722451            character*80 :: rstfil
    1873             integer*4 :: ntlml
    1874             integer*4 dimension(10) :: irsml1
    1875             integer*4 dimension(10) :: irsml2
    1876             integer*4 dimension(10) :: ivrml1
    1877             integer*4 dimension(10) :: nvrml
    1878             integer*4 dimension(10) :: imsml1
    1879             integer*4 dimension(10) :: nmsml
    1880             integer*4 dimension(10) :: iadml1
    1881             integer*4 dimension(10) :: nadml
    1882             integer*4 dimension(3,10) :: ixrfpt
    1883             integer*4 dimension(2600) :: ixatp
    1884             integer*4 :: ireg
    1885             real*8 dimension(100) :: blath
    1886             real*8 dimension(100) :: baath
    1887             real*8 dimension(100) :: toath
    1888             real*8 dimension(100) :: cgath
    1889             integer*4 dimension(100,100) :: iref
    1890             integer*4 :: nci
     2452            integer :: ntlml
     2453            integer dimension(10) :: irsml1
     2454            integer dimension(10) :: irsml2
     2455            integer dimension(10) :: ivrml1
     2456            integer dimension(10) :: nvrml
     2457            integer dimension(10) :: imsml1
     2458            integer dimension(10) :: nmsml
     2459            integer dimension(10) :: iadml1
     2460            integer dimension(10) :: nadml
     2461            integer dimension(3,10) :: ixrfpt
     2462            integer dimension(2600) :: ixatp
     2463            integer :: ireg
     2464            double precision dimension(100) :: blath
     2465            double precision dimension(100) :: baath
     2466            double precision dimension(100) :: toath
     2467            double precision dimension(100) :: cgath
     2468            integer dimension(100,100) :: iref
     2469            integer :: nci
    18912470            logical :: flex
    18922471            logical :: tesgrd
    18932472            logical :: sh2
    18942473            logical :: epsd
    1895             integer*4 :: ientyp
    1896             real*8 :: rgyh
    1897             real*8 :: rgyp
    1898             integer*4 :: idloa
    1899             integer*4 :: idloz
    1900             integer*4 :: idupa
    1901             integer*4 :: idupz
     2474            integer :: ientyp
     2475            double precision :: rgyh
     2476            double precision :: rgyp
     2477            integer :: idloa
     2478            integer :: idloz
     2479            integer :: idupa
     2480            integer :: idupz
    19022481            integer :: myrank
    19032482            integer :: no
    … …  
    19062485            character dimension(100,4) :: nmath
    19072486            character dimension(100,3) :: nmvrh
    1908             integer*4 dimension(100) :: ityath
    1909             integer*4 dimension(100) :: iowath
    1910             integer*4 dimension(100) :: iyowath
    1911             integer*4 dimension(100) :: nbdath
    1912             integer*4 dimension(3,100) :: ibdath
    1913             integer*4 dimension(3,100) :: iybdath
    1914             integer*4 dimension(100) :: ityvrh
    1915             integer*4 dimension(100) :: iclvrh
    1916             integer*4 dimension(100) :: iatvrh
     2487            integer dimension(100) :: ityath
     2488            integer dimension(100) :: iowath
     2489            integer dimension(100) :: iyowath
     2490            integer dimension(100) :: nbdath
     2491            integer dimension(3,100) :: ibdath
     2492            integer dimension(3,100) :: iybdath
     2493            integer dimension(100) :: ityvrh
     2494            integer dimension(100) :: iclvrh
     2495            integer dimension(100) :: iatvrh
    19172496            character dimension(100,4) :: seq
    1918             real*8 dimension(2600) :: rvdw
    1919             real*8 dimension(2600) :: sigma
    1920             real*8 dimension(2600,3) :: gradan
    1921             integer*4 dimension(18,18) :: ihbty
    1922             integer*4 :: npnt
     2497            double precision dimension(2600) :: rvdw
     2498            double precision dimension(2600) :: sigma
     2499            double precision dimension(2600,3) :: gradan
     2500            integer dimension(18,18) :: ihbty
     2501            integer :: npnt
    19232502            character dimension(10,80) :: nmml
    1924             real*8 dimension(18,18) :: cij
    1925             real*8 dimension(18,18) :: aij
    1926             real*8 dimension(18,18) :: a14
    1927             real*8 dimension(18,18) :: chb
    1928             real*8 dimension(18,18) :: ahb
    1929             real*8 dimension(19) :: e0to
    1930             real*8 dimension(19) :: sgto
    1931             real*8 dimension(19) :: rnto
    1932             real*8 dimension(19) :: esnto
    1933             real*8 :: conv
    1934             real*8 :: plt
    1935             real*8 :: slp
    1936             real*8 :: cohb
    1937             integer*4 dimension(100) :: iatrs1
    1938             integer*4 dimension(100) :: iatrs2
    1939             integer*4 dimension(100) :: ixatrs
    1940             integer*4 dimension(100) :: ivrrs1
    1941             integer*4 dimension(100) :: nvrrs
    1942             integer*4 :: ntlrt
    1943             integer*4 :: ntlsu
    1944             integer*4 dimension(500) :: i1vrrt
    1945             integer*4 dimension(500) :: i2vrrt
    1946             integer*4 dimension(4800) :: iprtsu
    1947             integer*4 dimension(800) :: i1rtsu
    1948             integer*4 dimension(800) :: nrtsu
    1949             integer*4 dimension(800) :: i1vrsu
    1950             integer*4 dimension(800) :: i2vrsu
    1951             integer*4 dimension(800) :: ipvrsu
    1952             real*8 dimension(3,10) :: rfpt
    1953             real*8 dimension(6,10) :: gbpr
    1954             real*8 dimension(3,10) :: xrfax
    1955             real*8 dimension(3,10) :: yrfax
    1956             real*8 dimension(3,10) :: zrfax
     2503            double precision dimension(18,18) :: cij
     2504            double precision dimension(18,18) :: aij
     2505            double precision dimension(18,18) :: a14
     2506            double precision dimension(18,18) :: chb
     2507            double precision dimension(18,18) :: ahb
     2508            double precision dimension(19) :: e0to
     2509            double precision dimension(19) :: sgto
     2510            double precision dimension(19) :: rnto
     2511            double precision dimension(19) :: esnto
     2512            double precision :: conv
     2513            double precision :: plt
     2514            double precision :: slp
     2515            double precision :: cohb
     2516            integer dimension(100) :: iatrs1
     2517            integer dimension(100) :: iatrs2
     2518            integer dimension(100) :: ixatrs
     2519            integer dimension(100) :: ivrrs1
     2520            integer dimension(100) :: nvrrs
     2521            integer :: ntlrt
     2522            integer :: ntlsu
     2523            integer dimension(500) :: i1vrrt
     2524            integer dimension(500) :: i2vrrt
     2525            integer dimension(4800) :: iprtsu
     2526            integer dimension(800) :: i1rtsu
     2527            integer dimension(800) :: nrtsu
     2528            integer dimension(800) :: i1vrsu
     2529            integer dimension(800) :: i2vrsu
     2530            integer dimension(800) :: ipvrsu
     2531            double precision dimension(3,10) :: rfpt
     2532            double precision dimension(6,10) :: gbpr
     2533            double precision dimension(3,10) :: xrfax
     2534            double precision dimension(3,10) :: yrfax
     2535            double precision dimension(3,10) :: zrfax
    19572536            logical dimension(800) :: fxvr
    1958             real*8 :: eyel
    1959             real*8 :: eyvw
    1960             real*8 :: eyhb
    1961             real*8 :: eyvr
    1962             real*8 :: eysm
    1963             real*8 :: eysl
    1964             real*8 :: eyrg
    1965             real*8 :: eyslh
    1966             real*8 :: eyslp
    1967             real*8 :: eyab
    1968             real*8 :: eysmi
    1969             real*8 :: eyhbi
    1970             real*8 :: eyeli
    1971             real*8 :: eyvwi
    1972             real*8 dimension(800) :: gdeyvr
    1973             real*8 dimension(800) :: gdeyrg
    1974             real*8 dimension(800) :: gdeysl
    1975             real*8 dimension(60) :: gdeygb
    1976             real*8 :: wtey
    1977             real*8 :: wtrg
    1978             integer*4 dimension(800) :: iatvr
    1979             integer*4 dimension(800) :: ityvr
    1980             integer*4 dimension(800) :: iclvr
    1981             integer*4 dimension(800) :: iorvr
    1982             integer*4 dimension(800) :: imsvr1
    1983             integer*4 dimension(800) :: imsvr2
    1984             integer*4 dimension(2400) :: latms1
    1985             integer*4 dimension(2400) :: latms2
    1986             integer*4 dimension(800) :: iadvr1
    1987             integer*4 dimension(800) :: iadvr2
    1988             integer*4 dimension(800) :: ladvr
    1989             integer*4 dimension(800) :: idvr
     2537            double precision :: eyel
     2538            double precision :: eyvw
     2539            double precision :: eyhb
     2540            double precision :: eyvr
     2541            double precision :: eysm
     2542            double precision :: eysl
     2543            double precision :: eyrg
     2544            double precision :: eyslh
     2545            double precision :: eyslp
     2546            double precision :: eyab
     2547            double precision :: eysmi
     2548            double precision :: eyhbi
     2549            double precision :: eyeli
     2550            double precision :: eyvwi
     2551            double precision dimension(800) :: gdeyvr
     2552            double precision dimension(800) :: gdeyrg
     2553            double precision dimension(800) :: gdeysl
     2554            double precision dimension(60) :: gdeygb
     2555            double precision :: wtey
     2556            double precision :: wtrg
     2557            integer dimension(800) :: iatvr
     2558            integer dimension(800) :: ityvr
     2559            integer dimension(800) :: iclvr
     2560            integer dimension(800) :: iorvr
     2561            integer dimension(800) :: imsvr1
     2562            integer dimension(800) :: imsvr2
     2563            integer dimension(2400) :: latms1
     2564            integer dimension(2400) :: latms2
     2565            integer dimension(800) :: iadvr1
     2566            integer dimension(800) :: iadvr2
     2567            integer dimension(800) :: ladvr
     2568            integer dimension(800) :: idvr
    19902569            integer :: enysolct
    1991             character dimension(3,800) :: nmvr
    1992             real*8 :: boxsize
     2570            character dimension(800,3) :: nmvr
     2571            double precision :: boxsize
    19932572            integer :: seed
    1994             character*100 :: zimm
    1995             integer*4 :: itysol
     2573            character*mxrs :: zimm
     2574            integer :: itysol
    19962575            logical :: isolscl
    1997             real*8 dimension(100) :: rsstrg
     2576            double precision dimension(100) :: rsstrg
    19982577            character dimension(35,4) :: rsnmcd
    19992578            character dimension(35) :: onltcd
    … …  
    20012580            integer :: upchswitch
    20022581            double precision :: bgsprob
    2003             integer*4 dimension(10) :: nvwml
    2004             integer*4 dimension(10) :: ivwml1
    2005             integer*4 dimension(10) :: n14ml
    2006             integer*4 dimension(10) :: i14ml1
    2007             integer*4 dimension(2600) :: ivwat1
    2008             integer*4 dimension(2600) :: ivwat2
    2009             integer*4 dimension(2600) :: i14at1
    2010             integer*4 dimension(2600) :: i14at2
    2011             integer*4 dimension(10400) :: lvwat1
    2012             integer*4 dimension(10400) :: lvwat2
    2013             integer*4 dimension(10400) :: l14at
    2014             integer*4 dimension(10400) :: ixatvw
    2015             integer*4 dimension(10400) :: ixat14
    2016             real*8 dimension(800) :: olvlvr
    2017             real*8 dimension(800) :: vlvr
    2018             real*8 dimension(800) :: axvr
    2019             real*8 :: beta
    2020             real*8 dimension(18,18) :: c_f
    2021             real*8 dimension(18,18) :: a_f
    2022             real*8 dimension(4,6) :: chb_f
    2023             real*8 dimension(4,6) :: ahb_f
    2024             real*8 dimension(19) :: e0to_f
    2025             real*8 dimension(19) :: sgto_f
    2026             real*8 dimension(19) :: rnto_f
    2027             real*8 :: plt_f
    2028             real*8 :: slp_f
    2029             real*8 :: cohb_f
     2582            integer dimension(10) :: nvwml
     2583            integer dimension(10) :: ivwml1
     2584            integer dimension(10) :: n14ml
     2585            integer dimension(10) :: i14ml1
     2586            integer dimension(2600) :: ivwat1
     2587            integer dimension(2600) :: ivwat2
     2588            integer dimension(2600) :: i14at1
     2589            integer dimension(2600) :: i14at2
     2590            integer dimension(10400) :: lvwat1
     2591            integer dimension(10400) :: lvwat2
     2592            integer dimension(10400) :: l14at
     2593            integer dimension(10400) :: ixatvw
     2594            integer dimension(10400) :: ixat14
     2595            double precision dimension(800) :: olvlvr
     2596            double precision dimension(800) :: vlvr
     2597            double precision dimension(800) :: axvr
     2598            double precision :: beta
     2599            double precision dimension(18,18) :: c_f
     2600            double precision dimension(18,18) :: a_f
     2601            double precision dimension(4,6) :: chb_f
     2602            double precision dimension(4,6) :: ahb_f
     2603            double precision dimension(19) :: e0to_f
     2604            double precision dimension(19) :: sgto_f
     2605            double precision dimension(19) :: rnto_f
     2606            double precision :: plt_f
     2607            double precision :: slp_f
     2608            double precision :: cohb_f
    20302609            common /v_sol/ vdvol,asa,asap,asah
    20312610            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    20882667            double precision intent(in) :: tmax
    20892668            double precision intent(in) :: tmin
    2090             logical optional,intent(in) :: lrand=1
    2091             real*8 :: vdvol
    2092             real*8 :: asa
    2093             real*8 :: asap
    2094             real*8 :: asah
    2095             real*8 dimension(2600) :: cgat
    2096             real*8 dimension(2600) :: xbaat
    2097             real*8 dimension(2600) :: ybaat
    2098             real*8 dimension(2600) :: zbaat
    2099             real*8 dimension(2600) :: baat
    2100             real*8 dimension(2600) :: snbaat
    2101             real*8 dimension(2600) :: csbaat
    2102             real*8 dimension(2600) :: xtoat
    2103             real*8 dimension(2600) :: ytoat
    2104             real*8 dimension(2600) :: ztoat
    2105             real*8 dimension(2600) :: toat
    2106             real*8 dimension(2600) :: sntoat
    2107             real*8 dimension(2600) :: cstoat
    2108             real*8 dimension(2600) :: blat
    2109             real*8 dimension(2602) :: xat
    2110             real*8 dimension(2602) :: yat
    2111             real*8 dimension(2602) :: zat
    2112             integer*4 dimension(100,100) :: ijcont
    2113             integer*4 dimension(100) :: ind_alf
     2669            logical optional, intent(in) :: lrand=1
     2670            double precision :: vdvol
     2671            double precision :: asa
     2672            double precision :: asap
     2673            double precision :: asah
     2674            integer dimension(2600) :: cgat
     2675            double precision dimension(2600) :: xbaat
     2676            double precision dimension(2600) :: ybaat
     2677            double precision dimension(2600) :: zbaat
     2678            double precision dimension(2600) :: baat
     2679            double precision dimension(2600) :: snbaat
     2680            double precision dimension(2600) :: csbaat
     2681            double precision dimension(2600) :: xtoat
     2682            double precision dimension(2600) :: ytoat
     2683            double precision dimension(2600) :: ztoat
     2684            double precision dimension(2600) :: toat
     2685            double precision dimension(2600) :: sntoat
     2686            double precision dimension(2600) :: cstoat
     2687            double precision dimension(2600) :: blat
     2688            double precision dimension(2602) :: xat
     2689            double precision dimension(2602) :: yat
     2690            double precision dimension(2602) :: zat
     2691            integer dimension(100,100) :: ijcont
     2692            integer dimension(100) :: ind_alf
    21142693            logical dimension(18) :: do_s
    21152694            logical dimension(18) :: ac_s
    21162695            character dimension(500,4) :: nmrt
    21172696            character dimension(1000,3) :: nmvrrt
    2118             integer*4 :: nvr
    2119             real*8 dimension(9,18) :: coef_sl
    2120             real*8 dimension(9,18) :: rad_vdw
    2121             real*8 dimension(100) :: surfres
    2122             integer*4 :: ntyhb
    2123             integer*4 dimension(100) :: ixtyhb
    2124             integer*4 dimension(100) :: nutyhb
    2125             integer*4 dimension(10,10) :: mmhb
    2126             character dimension(4,2600) :: nmat
    2127             integer*4 :: lunlib
    2128             integer*4 :: lunseq
    2129             integer*4 :: lunchg
    2130             integer*4 :: lunvar
    2131             integer*4 :: lunrst
     2697            integer :: nvr
     2698            double precision dimension(9,18) :: coef_sl
     2699            double precision dimension(9,18) :: rad_vdw
     2700            double precision dimension(100) :: surfres
     2701            integer :: ntyhb
     2702            integer dimension(100) :: ixtyhb
     2703            integer dimension(100) :: nutyhb
     2704            integer dimension(10,10) :: mmhb
     2705            character dimension(2600,4) :: nmat
     2706            integer :: lunlib
     2707            integer :: lunseq
     2708            integer :: lunchg
     2709            integer :: lunvar
     2710            integer :: lunrst
    21322711            logical dimension(800) :: isrfvr
    2133             real*8 dimension(500) :: pbrt
    2134             real*8 dimension(1000) :: vuvrrt
    2135             real*8 dimension(1000) :: dvvrrt
    2136             integer*4 dimension(2600) :: ityat
    2137             integer*4 dimension(2600) :: iowat
    2138             integer*4 dimension(2600) :: iyowat
    2139             integer*4 dimension(2600) :: nbdat
    2140             integer*4 dimension(3,2600) :: ibdat
    2141             integer*4 dimension(3,2600) :: iybdat
    2142             integer*4 dimension(2600) :: ixmsat
    2143             real*8 :: ehm
    2144             real*8 dimension(18) :: atpl
    2145             real*8 dimension(18) :: efel
    2146             real*8 dimension(18) :: emin
    2147             real*8 dimension(18) :: rmin
    2148             real*8 dimension(4,6) :: chb_s
    2149             real*8 dimension(4,6) :: ahb_s
    2150             real*8 dimension(19) :: e0to_s
    2151             real*8 dimension(19) :: sgto_s
    2152             real*8 dimension(19) :: rnto_s
    2153             real*8 :: eps_s
    2154             real*8 dimension(2000,3) :: spoint
     2712            double precision dimension(500) :: pbrt
     2713            double precision dimension(1000) :: vuvrrt
     2714            double precision dimension(1000) :: dvvrrt
     2715            integer dimension(2600) :: ityat
     2716            integer dimension(2600) :: iowat
     2717            integer dimension(2600) :: iyowat
     2718            integer dimension(2600) :: nbdat
     2719            integer dimension(3,2600) :: ibdat
     2720            integer dimension(3,2600) :: iybdat
     2721            integer dimension(2600) :: ixmsat
     2722            double precision :: ehm
     2723            double precision dimension(18) :: atpl
     2724            double precision dimension(18) :: efel
     2725            double precision dimension(18) :: emin
     2726            double precision dimension(18) :: rmin
     2727            double precision dimension(4,6) :: chb_s
     2728            double precision dimension(4,6) :: ahb_s
     2729            double precision dimension(19) :: e0to_s
     2730            double precision dimension(19) :: sgto_s
     2731            double precision dimension(19) :: rnto_s
     2732            double precision :: eps_s
     2733            double precision dimension(2000,3) :: spoint
    21552734            logical dimension(18) :: do_f
    21562735            logical dimension(18) :: ac_f
    … …  
    21602739            character*80 :: varfil
    21612740            character*80 :: rstfil
    2162             integer*4 :: ntlml
    2163             integer*4 dimension(10) :: irsml1
    2164             integer*4 dimension(10) :: irsml2
    2165             integer*4 dimension(10) :: ivrml1
    2166             integer*4 dimension(10) :: nvrml
    2167             integer*4 dimension(10) :: imsml1
    2168             integer*4 dimension(10) :: nmsml
    2169             integer*4 dimension(10) :: iadml1
    2170             integer*4 dimension(10) :: nadml
    2171             integer*4 dimension(3,10) :: ixrfpt
    2172             integer*4 dimension(2600) :: ixatp
    2173             integer*4 :: ireg
    2174             real*8 dimension(100) :: blath
    2175             real*8 dimension(100) :: baath
    2176             real*8 dimension(100) :: toath
    2177             real*8 dimension(100) :: cgath
    2178             integer*4 dimension(100,100) :: iref
    2179             integer*4 :: nci
     2741            integer :: ntlml
     2742            integer dimension(10) :: irsml1
     2743            integer dimension(10) :: irsml2
     2744            integer dimension(10) :: ivrml1
     2745            integer dimension(10) :: nvrml
     2746            integer dimension(10) :: imsml1
     2747            integer dimension(10) :: nmsml
     2748            integer dimension(10) :: iadml1
     2749            integer dimension(10) :: nadml
     2750            integer dimension(3,10) :: ixrfpt
     2751            integer dimension(2600) :: ixatp
     2752            integer :: ireg
     2753            double precision dimension(100) :: blath
     2754            double precision dimension(100) :: baath
     2755            double precision dimension(100) :: toath
     2756            double precision dimension(100) :: cgath
     2757            integer dimension(100,100) :: iref
     2758            integer :: nci
    21802759            logical :: flex
    21812760            logical :: tesgrd
    21822761            logical :: sh2
    21832762            logical :: epsd
    2184             integer*4 :: ientyp
    2185             real*8 :: rgyh
    2186             real*8 :: rgyp
    2187             integer*4 :: idloa
    2188             integer*4 :: idloz
    2189             integer*4 :: idupa
    2190             integer*4 :: idupz
     2763            integer :: ientyp
     2764            double precision :: rgyh
     2765            double precision :: rgyp
     2766            integer :: idloa
     2767            integer :: idloz
     2768            integer :: idupa
     2769            integer :: idupz
    21912770            integer :: myrank
    21922771            integer :: no
    … …  
    21952774            character dimension(100,4) :: nmath
    21962775            character dimension(100,3) :: nmvrh
    2197             integer*4 dimension(100) :: ityath
    2198             integer*4 dimension(100) :: iowath
    2199             integer*4 dimension(100) :: iyowath
    2200             integer*4 dimension(100) :: nbdath
    2201             integer*4 dimension(3,100) :: ibdath
    2202             integer*4 dimension(3,100) :: iybdath
    2203             integer*4 dimension(100) :: ityvrh
    2204             integer*4 dimension(100) :: iclvrh
    2205             integer*4 dimension(100) :: iatvrh
     2776            integer dimension(100) :: ityath
     2777            integer dimension(100) :: iowath
     2778            integer dimension(100) :: iyowath
     2779            integer dimension(100) :: nbdath
     2780            integer dimension(3,100) :: ibdath
     2781            integer dimension(3,100) :: iybdath
     2782            integer dimension(100) :: ityvrh
     2783            integer dimension(100) :: iclvrh
     2784            integer dimension(100) :: iatvrh
    22062785            character dimension(100,4) :: seq
    2207             real*8 dimension(2600) :: rvdw
    2208             real*8 dimension(2600) :: sigma
    2209             real*8 dimension(2600,3) :: gradan
    2210             integer*4 dimension(18,18) :: ihbty
    2211             integer*4 :: npnt
     2786            double precision dimension(2600) :: rvdw
     2787            double precision dimension(2600) :: sigma
     2788            double precision dimension(2600,3) :: gradan
     2789            integer dimension(18,18) :: ihbty
     2790            integer :: npnt
    22122791            character dimension(10,80) :: nmml
    2213             real*8 dimension(18,18) :: cij
    2214             real*8 dimension(18,18) :: aij
    2215             real*8 dimension(18,18) :: a14
    2216             real*8 dimension(18,18) :: chb
    2217             real*8 dimension(18,18) :: ahb
    2218             real*8 dimension(19) :: e0to
    2219             real*8 dimension(19) :: sgto
    2220             real*8 dimension(19) :: rnto
    2221             real*8 dimension(19) :: esnto
    2222             real*8 :: conv
    2223             real*8 :: plt
    2224             real*8 :: slp
    2225             real*8 :: cohb
    2226             integer*4 dimension(100) :: iatrs1
    2227             integer*4 dimension(100) :: iatrs2
    2228             integer*4 dimension(100) :: ixatrs
    2229             integer*4 dimension(100) :: ivrrs1
    2230             integer*4 dimension(100) :: nvrrs
    2231             integer*4 :: ntlrt
    2232             integer*4 :: ntlsu
    2233             integer*4 dimension(500) :: i1vrrt
    2234             integer*4 dimension(500) :: i2vrrt
    2235             integer*4 dimension(4800) :: iprtsu
    2236             integer*4 dimension(800) :: i1rtsu
    2237             integer*4 dimension(800) :: nrtsu
    2238             integer*4 dimension(800) :: i1vrsu
    2239             integer*4 dimension(800) :: i2vrsu
    2240             integer*4 dimension(800) :: ipvrsu
    2241             real*8 dimension(3,10) :: rfpt
    2242             real*8 dimension(6,10) :: gbpr
    2243             real*8 dimension(3,10) :: xrfax
    2244             real*8 dimension(3,10) :: yrfax
    2245             real*8 dimension(3,10) :: zrfax
     2792            double precision dimension(18,18) :: cij
     2793            double precision dimension(18,18) :: aij
     2794            double precision dimension(18,18) :: a14
     2795            double precision dimension(18,18) :: chb
     2796            double precision dimension(18,18) :: ahb
     2797            double precision dimension(19) :: e0to
     2798            double precision dimension(19) :: sgto
     2799            double precision dimension(19) :: rnto
     2800            double precision dimension(19) :: esnto
     2801            double precision :: conv
     2802            double precision :: plt
     2803            double precision :: slp
     2804            double precision :: cohb
     2805            integer dimension(100) :: iatrs1
     2806            integer dimension(100) :: iatrs2
     2807            integer dimension(100) :: ixatrs
     2808            integer dimension(100) :: ivrrs1
     2809            integer dimension(100) :: nvrrs
     2810            integer :: ntlrt
     2811            integer :: ntlsu
     2812            integer dimension(500) :: i1vrrt
     2813            integer dimension(500) :: i2vrrt
     2814            integer dimension(4800) :: iprtsu
     2815            integer dimension(800) :: i1rtsu
     2816            integer dimension(800) :: nrtsu
     2817            integer dimension(800) :: i1vrsu
     2818            integer dimension(800) :: i2vrsu
     2819            integer dimension(800) :: ipvrsu
     2820            double precision dimension(3,10) :: rfpt
     2821            double precision dimension(6,10) :: gbpr
     2822            double precision dimension(3,10) :: xrfax
     2823            double precision dimension(3,10) :: yrfax
     2824            double precision dimension(3,10) :: zrfax
    22462825            logical dimension(800) :: fxvr
    2247             real*8 :: eyel
    2248             real*8 :: eyvw
    2249             real*8 :: eyhb
    2250             real*8 :: eyvr
    2251             real*8 :: eysm
    2252             real*8 :: eysl
    2253             real*8 :: eyrg
    2254             real*8 :: eyslh
    2255             real*8 :: eyslp
    2256             real*8 :: eyab
    2257             real*8 :: eysmi
    2258             real*8 :: eyhbi
    2259             real*8 :: eyeli
    2260             real*8 :: eyvwi
    2261             real*8 dimension(800) :: gdeyvr
    2262             real*8 dimension(800) :: gdeyrg
    2263             real*8 dimension(800) :: gdeysl
    2264             real*8 dimension(60) :: gdeygb
    2265             real*8 :: wtey
    2266             real*8 :: wtrg
    2267             integer*4 dimension(800) :: iatvr
    2268             integer*4 dimension(800) :: ityvr
    2269             integer*4 dimension(800) :: iclvr
    2270             integer*4 dimension(800) :: iorvr
    2271             integer*4 dimension(800) :: imsvr1
    2272             integer*4 dimension(800) :: imsvr2
    2273             integer*4 dimension(2400) :: latms1
    2274             integer*4 dimension(2400) :: latms2
    2275             integer*4 dimension(800) :: iadvr1
    2276             integer*4 dimension(800) :: iadvr2
    2277             integer*4 dimension(800) :: ladvr
    2278             integer*4 dimension(800) :: idvr
     2826            double precision :: eyel
     2827            double precision :: eyvw
     2828            double precision :: eyhb
     2829            double precision :: eyvr
     2830            double precision :: eysm
     2831            double precision :: eysl
     2832            double precision :: eyrg
     2833            double precision :: eyslh
     2834            double precision :: eyslp
     2835            double precision :: eyab
     2836            double precision :: eysmi
     2837            double precision :: eyhbi
     2838            double precision :: eyeli
     2839            double precision :: eyvwi
     2840            double precision dimension(800) :: gdeyvr
     2841            double precision dimension(800) :: gdeyrg
     2842            double precision dimension(800) :: gdeysl
     2843            double precision dimension(60) :: gdeygb
     2844            double precision :: wtey
     2845            double precision :: wtrg
     2846            integer dimension(800) :: iatvr
     2847            integer dimension(800) :: ityvr
     2848            integer dimension(800) :: iclvr
     2849            integer dimension(800) :: iorvr
     2850            integer dimension(800) :: imsvr1
     2851            integer dimension(800) :: imsvr2
     2852            integer dimension(2400) :: latms1
     2853            integer dimension(2400) :: latms2
     2854            integer dimension(800) :: iadvr1
     2855            integer dimension(800) :: iadvr2
     2856            integer dimension(800) :: ladvr
     2857            integer dimension(800) :: idvr
    22792858            integer :: enysolct
    2280             character dimension(3,800) :: nmvr
    2281             real*8 :: boxsize
     2859            character dimension(800,3) :: nmvr
     2860            double precision :: boxsize
    22822861            integer :: seed
    2283             character*100 :: zimm
    2284             integer*4 :: itysol
     2862            character*mxrs :: zimm
     2863            integer :: itysol
    22852864            logical :: isolscl
    2286             real*8 dimension(100) :: rsstrg
     2865            double precision dimension(100) :: rsstrg
    22872866            character dimension(35,4) :: rsnmcd
    22882867            character dimension(35) :: onltcd
    … …  
    22902869            integer :: upchswitch
    22912870            double precision :: bgsprob
    2292             integer*4 dimension(10) :: nvwml
    2293             integer*4 dimension(10) :: ivwml1
    2294             integer*4 dimension(10) :: n14ml
    2295             integer*4 dimension(10) :: i14ml1
    2296             integer*4 dimension(2600) :: ivwat1
    2297             integer*4 dimension(2600) :: ivwat2
    2298             integer*4 dimension(2600) :: i14at1
    2299             integer*4 dimension(2600) :: i14at2
    2300             integer*4 dimension(10400) :: lvwat1
    2301             integer*4 dimension(10400) :: lvwat2
    2302             integer*4 dimension(10400) :: l14at
    2303             integer*4 dimension(10400) :: ixatvw
    2304             integer*4 dimension(10400) :: ixat14
    2305             real*8 dimension(800) :: olvlvr
    2306             real*8 dimension(800) :: vlvr
    2307             real*8 dimension(800) :: axvr
    2308             real*8 :: beta
    2309             real*8 dimension(18,18) :: c_f
    2310             real*8 dimension(18,18) :: a_f
    2311             real*8 dimension(4,6) :: chb_f
    2312             real*8 dimension(4,6) :: ahb_f
    2313             real*8 dimension(19) :: e0to_f
    2314             real*8 dimension(19) :: sgto_f
    2315             real*8 dimension(19) :: rnto_f
    2316             real*8 :: plt_f
    2317             real*8 :: slp_f
    2318             real*8 :: cohb_f
     2871            integer dimension(10) :: nvwml
     2872            integer dimension(10) :: ivwml1
     2873            integer dimension(10) :: n14ml
     2874            integer dimension(10) :: i14ml1
     2875            integer dimension(2600) :: ivwat1
     2876            integer dimension(2600) :: ivwat2
     2877            integer dimension(2600) :: i14at1
     2878            integer dimension(2600) :: i14at2
     2879            integer dimension(10400) :: lvwat1
     2880            integer dimension(10400) :: lvwat2
     2881            integer dimension(10400) :: l14at
     2882            integer dimension(10400) :: ixatvw
     2883            integer dimension(10400) :: ixat14
     2884            double precision dimension(800) :: olvlvr
     2885            double precision dimension(800) :: vlvr
     2886            double precision dimension(800) :: axvr
     2887            double precision :: beta
     2888            double precision dimension(18,18) :: c_f
     2889            double precision dimension(18,18) :: a_f
     2890            double precision dimension(4,6) :: chb_f
     2891            double precision dimension(4,6) :: ahb_f
     2892            double precision dimension(19) :: e0to_f
     2893            double precision dimension(19) :: sgto_f
     2894            double precision dimension(19) :: rnto_f
     2895            double precision :: plt_f
     2896            double precision :: slp_f
     2897            double precision :: cohb_f
    23192898            common /v_sol/ vdvol,asa,asap,asah
    23202899            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    23752954            real*8 intent(out) :: rgy
    23762955            real*8 intent(out) :: ee
    2377             real*8 :: vdvol
    2378             real*8 :: asa
    2379             real*8 :: asap
    2380             real*8 :: asah
    2381             real*8 dimension(2600) :: cgat
    2382             real*8 dimension(2600) :: xbaat
    2383             real*8 dimension(2600) :: ybaat
    2384             real*8 dimension(2600) :: zbaat
    2385             real*8 dimension(2600) :: baat
    2386             real*8 dimension(2600) :: snbaat
    2387             real*8 dimension(2600) :: csbaat
    2388             real*8 dimension(2600) :: xtoat
    2389             real*8 dimension(2600) :: ytoat
    2390             real*8 dimension(2600) :: ztoat
    2391             real*8 dimension(2600) :: toat
    2392             real*8 dimension(2600) :: sntoat
    2393             real*8 dimension(2600) :: cstoat
    2394             real*8 dimension(2600) :: blat
    2395             real*8 dimension(2602) :: xat
    2396             real*8 dimension(2602) :: yat
    2397             real*8 dimension(2602) :: zat
    2398             integer*4 dimension(100,100) :: ijcont
    2399             integer*4 dimension(100) :: ind_alf
     2956            double precision :: vdvol
     2957            double precision :: asa
     2958            double precision :: asap
     2959            double precision :: asah
     2960            integer dimension(2600) :: cgat
     2961            double precision dimension(2600) :: xbaat
     2962            double precision dimension(2600) :: ybaat
     2963            double precision dimension(2600) :: zbaat
     2964            double precision dimension(2600) :: baat
     2965            double precision dimension(2600) :: snbaat
     2966            double precision dimension(2600) :: csbaat
     2967            double precision dimension(2600) :: xtoat
     2968            double precision dimension(2600) :: ytoat
     2969            double precision dimension(2600) :: ztoat
     2970            double precision dimension(2600) :: toat
     2971            double precision dimension(2600) :: sntoat
     2972            double precision dimension(2600) :: cstoat
     2973            double precision dimension(2600) :: blat
     2974            double precision dimension(2602) :: xat
     2975            double precision dimension(2602) :: yat
     2976            double precision dimension(2602) :: zat
     2977            integer dimension(100,100) :: ijcont
     2978            integer dimension(100) :: ind_alf
    24002979            logical dimension(18) :: do_s
    24012980            logical dimension(18) :: ac_s
    24022981            character dimension(500,4) :: nmrt
    24032982            character dimension(1000,3) :: nmvrrt
    2404             integer*4 :: nvr
    2405             real*8 dimension(9,18) :: coef_sl
    2406             real*8 dimension(9,18) :: rad_vdw
    2407             real*8 dimension(100) :: surfres
    2408             integer*4 :: ntyhb
    2409             integer*4 dimension(100) :: ixtyhb
    2410             integer*4 dimension(100) :: nutyhb
    2411             integer*4 dimension(10,10) :: mmhb
    2412             character dimension(4,2600) :: nmat
    2413             integer*4 :: lunlib
    2414             integer*4 :: lunseq
    2415             integer*4 :: lunchg
    2416             integer*4 :: lunvar
    2417             integer*4 :: lunrst
     2983            integer :: nvr
     2984            double precision dimension(9,18) :: coef_sl
     2985            double precision dimension(9,18) :: rad_vdw
     2986            double precision dimension(100) :: surfres
     2987            integer :: ntyhb
     2988            integer dimension(100) :: ixtyhb
     2989            integer dimension(100) :: nutyhb
     2990            integer dimension(10,10) :: mmhb
     2991            character dimension(2600,4) :: nmat
     2992            integer :: lunlib
     2993            integer :: lunseq
     2994            integer :: lunchg
     2995            integer :: lunvar
     2996            integer :: lunrst
    24182997            logical dimension(800) :: isrfvr
    2419             real*8 dimension(500) :: pbrt
    2420             real*8 dimension(1000) :: vuvrrt
    2421             real*8 dimension(1000) :: dvvrrt
    2422             integer*4 dimension(2600) :: ityat
    2423             integer*4 dimension(2600) :: iowat
    2424             integer*4 dimension(2600) :: iyowat
    2425             integer*4 dimension(2600) :: nbdat
    2426             integer*4 dimension(3,2600) :: ibdat
    2427             integer*4 dimension(3,2600) :: iybdat
    2428             integer*4 dimension(2600) :: ixmsat
    2429             real*8 :: ehm
    2430             real*8 dimension(18) :: atpl
    2431             real*8 dimension(18) :: efel
    2432             real*8 dimension(18) :: emin
    2433             real*8 dimension(18) :: rmin
    2434             real*8 dimension(4,6) :: chb_s
    2435             real*8 dimension(4,6) :: ahb_s
    2436             real*8 dimension(19) :: e0to_s
    2437             real*8 dimension(19) :: sgto_s
    2438             real*8 dimension(19) :: rnto_s
    2439             real*8 :: eps_s
    2440             real*8 dimension(2000,3) :: spoint
     2998            double precision dimension(500) :: pbrt
     2999            double precision dimension(1000) :: vuvrrt
     3000            double precision dimension(1000) :: dvvrrt
     3001            integer dimension(2600) :: ityat
     3002            integer dimension(2600) :: iowat
     3003            integer dimension(2600) :: iyowat
     3004            integer dimension(2600) :: nbdat
     3005            integer dimension(3,2600) :: ibdat
     3006            integer dimension(3,2600) :: iybdat
     3007            integer dimension(2600) :: ixmsat
     3008            double precision :: ehm
     3009            double precision dimension(18) :: atpl
     3010            double precision dimension(18) :: efel
     3011            double precision dimension(18) :: emin
     3012            double precision dimension(18) :: rmin
     3013            double precision dimension(4,6) :: chb_s
     3014            double precision dimension(4,6) :: ahb_s
     3015            double precision dimension(19) :: e0to_s
     3016            double precision dimension(19) :: sgto_s
     3017            double precision dimension(19) :: rnto_s
     3018            double precision :: eps_s
     3019            double precision dimension(2000,3) :: spoint
    24413020            logical dimension(18) :: do_f
    24423021            logical dimension(18) :: ac_f
    … …  
    24463025            character*80 :: varfil
    24473026            character*80 :: rstfil
    2448             integer*4 :: ntlml
    2449             integer*4 dimension(10) :: irsml1
    2450             integer*4 dimension(10) :: irsml2
    2451             integer*4 dimension(10) :: ivrml1
    2452             integer*4 dimension(10) :: nvrml
    2453             integer*4 dimension(10) :: imsml1
    2454             integer*4 dimension(10) :: nmsml
    2455             integer*4 dimension(10) :: iadml1
    2456             integer*4 dimension(10) :: nadml
    2457             integer*4 dimension(3,10) :: ixrfpt
    2458             integer*4 dimension(2600) :: ixatp
    2459             integer*4 :: ireg
    2460             real*8 dimension(100) :: blath
    2461             real*8 dimension(100) :: baath
    2462             real*8 dimension(100) :: toath
    2463             real*8 dimension(100) :: cgath
    2464             integer*4 dimension(100,100) :: iref
    2465             integer*4 :: nci
     3027            integer :: ntlml
     3028            integer dimension(10) :: irsml1
     3029            integer dimension(10) :: irsml2
     3030            integer dimension(10) :: ivrml1
     3031            integer dimension(10) :: nvrml
     3032            integer dimension(10) :: imsml1
     3033            integer dimension(10) :: nmsml
     3034            integer dimension(10) :: iadml1
     3035            integer dimension(10) :: nadml
     3036            integer dimension(3,10) :: ixrfpt
     3037            integer dimension(2600) :: ixatp
     3038            integer :: ireg
     3039            double precision dimension(100) :: blath
     3040            double precision dimension(100) :: baath
     3041            double precision dimension(100) :: toath
     3042            double precision dimension(100) :: cgath
     3043            integer dimension(100,100) :: iref
     3044            integer :: nci
    24663045            logical :: flex
    24673046            logical :: tesgrd
    24683047            logical :: sh2
    24693048            logical :: epsd
    2470             integer*4 :: ientyp
    2471             real*8 :: rgyh
    2472             real*8 :: rgyp
    2473             integer*4 :: idloa
    2474             integer*4 :: idloz
    2475             integer*4 :: idupa
    2476             integer*4 :: idupz
     3049            integer :: ientyp
     3050            double precision :: rgyh
     3051            double precision :: rgyp
     3052            integer :: idloa
     3053            integer :: idloz
     3054            integer :: idupa
     3055            integer :: idupz
    24773056            integer :: myrank
    24783057            integer :: no
    … …  
    24813060            character dimension(100,4) :: nmath
    24823061            character dimension(100,3) :: nmvrh
    2483             integer*4 dimension(100) :: ityath
    2484             integer*4 dimension(100) :: iowath
    2485             integer*4 dimension(100) :: iyowath
    2486             integer*4 dimension(100) :: nbdath
    2487             integer*4 dimension(3,100) :: ibdath
    2488             integer*4 dimension(3,100) :: iybdath
    2489             integer*4 dimension(100) :: ityvrh
    2490             integer*4 dimension(100) :: iclvrh
    2491             integer*4 dimension(100) :: iatvrh
     3062            integer dimension(100) :: ityath
     3063            integer dimension(100) :: iowath
     3064            integer dimension(100) :: iyowath
     3065            integer dimension(100) :: nbdath
     3066            integer dimension(3,100) :: ibdath
     3067            integer dimension(3,100) :: iybdath
     3068            integer dimension(100) :: ityvrh
     3069            integer dimension(100) :: iclvrh
     3070            integer dimension(100) :: iatvrh
    24923071            character dimension(100,4) :: seq
    2493             real*8 dimension(2600) :: rvdw
    2494             real*8 dimension(2600) :: sigma
    2495             real*8 dimension(2600,3) :: gradan
    2496             integer*4 dimension(18,18) :: ihbty
    2497             integer*4 :: npnt
     3072            double precision dimension(2600) :: rvdw
     3073            double precision dimension(2600) :: sigma
     3074            double precision dimension(2600,3) :: gradan
     3075            integer dimension(18,18) :: ihbty
     3076            integer :: npnt
    24983077            character dimension(10,80) :: nmml
    2499             real*8 dimension(18,18) :: cij
    2500             real*8 dimension(18,18) :: aij
    2501             real*8 dimension(18,18) :: a14
    2502             real*8 dimension(18,18) :: chb
    2503             real*8 dimension(18,18) :: ahb
    2504             real*8 dimension(19) :: e0to
    2505             real*8 dimension(19) :: sgto
    2506             real*8 dimension(19) :: rnto
    2507             real*8 dimension(19) :: esnto
    2508             real*8 :: conv
    2509             real*8 :: plt
    2510             real*8 :: slp
    2511             real*8 :: cohb
    2512             integer*4 dimension(100) :: iatrs1
    2513             integer*4 dimension(100) :: iatrs2
    2514             integer*4 dimension(100) :: ixatrs
    2515             integer*4 dimension(100) :: ivrrs1
    2516             integer*4 dimension(100) :: nvrrs
    2517             integer*4 :: ntlrt
    2518             integer*4 :: ntlsu
    2519             integer*4 dimension(500) :: i1vrrt
    2520             integer*4 dimension(500) :: i2vrrt
    2521             integer*4 dimension(4800) :: iprtsu
    2522             integer*4 dimension(800) :: i1rtsu
    2523             integer*4 dimension(800) :: nrtsu
    2524             integer*4 dimension(800) :: i1vrsu
    2525             integer*4 dimension(800) :: i2vrsu
    2526             integer*4 dimension(800) :: ipvrsu
    2527             real*8 dimension(3,10) :: rfpt
    2528             real*8 dimension(6,10) :: gbpr
    2529             real*8 dimension(3,10) :: xrfax
    2530             real*8 dimension(3,10) :: yrfax
    2531             real*8 dimension(3,10) :: zrfax
     3078            double precision dimension(18,18) :: cij
     3079            double precision dimension(18,18) :: aij
     3080            double precision dimension(18,18) :: a14
     3081            double precision dimension(18,18) :: chb
     3082            double precision dimension(18,18) :: ahb
     3083            double precision dimension(19) :: e0to
     3084            double precision dimension(19) :: sgto
     3085            double precision dimension(19) :: rnto
     3086            double precision dimension(19) :: esnto
     3087            double precision :: conv
     3088            double precision :: plt
     3089            double precision :: slp
     3090            double precision :: cohb
     3091            integer dimension(100) :: iatrs1
     3092            integer dimension(100) :: iatrs2
     3093            integer dimension(100) :: ixatrs
     3094            integer dimension(100) :: ivrrs1
     3095            integer dimension(100) :: nvrrs
     3096            integer :: ntlrt
     3097            integer :: ntlsu
     3098            integer dimension(500) :: i1vrrt
     3099            integer dimension(500) :: i2vrrt
     3100            integer dimension(4800) :: iprtsu
     3101            integer dimension(800) :: i1rtsu
     3102            integer dimension(800) :: nrtsu
     3103            integer dimension(800) :: i1vrsu
     3104            integer dimension(800) :: i2vrsu
     3105            integer dimension(800) :: ipvrsu
     3106            double precision dimension(3,10) :: rfpt
     3107            double precision dimension(6,10) :: gbpr
     3108            double precision dimension(3,10) :: xrfax
     3109            double precision dimension(3,10) :: yrfax
     3110            double precision dimension(3,10) :: zrfax
    25323111            logical dimension(800) :: fxvr
    2533             real*8 :: eyel
    2534             real*8 :: eyvw
    2535             real*8 :: eyhb
    2536             real*8 :: eyvr
    2537             real*8 :: eysm
    2538             real*8 :: eysl
    2539             real*8 :: eyrg
    2540             real*8 :: eyslh
    2541             real*8 :: eyslp
    2542             real*8 :: eyab
    2543             real*8 :: eysmi
    2544             real*8 :: eyhbi
    2545             real*8 :: eyeli
    2546             real*8 :: eyvwi
    2547             real*8 dimension(800) :: gdeyvr
    2548             real*8 dimension(800) :: gdeyrg
    2549             real*8 dimension(800) :: gdeysl
    2550             real*8 dimension(60) :: gdeygb
    2551             real*8 :: wtey
    2552             real*8 :: wtrg
    2553             integer*4 dimension(800) :: iatvr
    2554             integer*4 dimension(800) :: ityvr
    2555             integer*4 dimension(800) :: iclvr
    2556             integer*4 dimension(800) :: iorvr
    2557             integer*4 dimension(800) :: imsvr1
    2558             integer*4 dimension(800) :: imsvr2
    2559             integer*4 dimension(2400) :: latms1
    2560             integer*4 dimension(2400) :: latms2
    2561             integer*4 dimension(800) :: iadvr1
    2562             integer*4 dimension(800) :: iadvr2
    2563             integer*4 dimension(800) :: ladvr
    2564             integer*4 dimension(800) :: idvr
     3112            double precision :: eyel
     3113            double precision :: eyvw
     3114            double precision :: eyhb
     3115            double precision :: eyvr
     3116            double precision :: eysm
     3117            double precision :: eysl
     3118            double precision :: eyrg
     3119            double precision :: eyslh
     3120            double precision :: eyslp
     3121            double precision :: eyab
     3122            double precision :: eysmi
     3123            double precision :: eyhbi
     3124            double precision :: eyeli
     3125            double precision :: eyvwi
     3126            double precision dimension(800) :: gdeyvr
     3127            double precision dimension(800) :: gdeyrg
     3128            double precision dimension(800) :: gdeysl
     3129            double precision dimension(60) :: gdeygb
     3130            double precision :: wtey
     3131            double precision :: wtrg
     3132            integer dimension(800) :: iatvr
     3133            integer dimension(800) :: ityvr
     3134            integer dimension(800) :: iclvr
     3135            integer dimension(800) :: iorvr
     3136            integer dimension(800) :: imsvr1
     3137            integer dimension(800) :: imsvr2
     3138            integer dimension(2400) :: latms1
     3139            integer dimension(2400) :: latms2
     3140            integer dimension(800) :: iadvr1
     3141            integer dimension(800) :: iadvr2
     3142            integer dimension(800) :: ladvr
     3143            integer dimension(800) :: idvr
    25653144            integer :: enysolct
    2566             character dimension(3,800) :: nmvr
    2567             real*8 :: boxsize
     3145            character dimension(800,3) :: nmvr
     3146            double precision :: boxsize
    25683147            integer :: seed
    2569             character*100 :: zimm
    2570             integer*4 :: itysol
     3148            character*mxrs :: zimm
     3149            integer :: itysol
    25713150            logical :: isolscl
    2572             real*8 dimension(100) :: rsstrg
     3151            double precision dimension(100) :: rsstrg
    25733152            character dimension(35,4) :: rsnmcd
    25743153            character dimension(35) :: onltcd
    … …  
    25763155            integer :: upchswitch
    25773156            double precision :: bgsprob
    2578             integer*4 dimension(10) :: nvwml
    2579             integer*4 dimension(10) :: ivwml1
    2580             integer*4 dimension(10) :: n14ml
    2581             integer*4 dimension(10) :: i14ml1
    2582             integer*4 dimension(2600) :: ivwat1
    2583             integer*4 dimension(2600) :: ivwat2
    2584             integer*4 dimension(2600) :: i14at1
    2585             integer*4 dimension(2600) :: i14at2
    2586             integer*4 dimension(10400) :: lvwat1
    2587             integer*4 dimension(10400) :: lvwat2
    2588             integer*4 dimension(10400) :: l14at
    2589             integer*4 dimension(10400) :: ixatvw
    2590             integer*4 dimension(10400) :: ixat14
    2591             real*8 dimension(800) :: olvlvr
    2592             real*8 dimension(800) :: vlvr
    2593             real*8 dimension(800) :: axvr
    2594             real*8 :: beta
    2595             real*8 dimension(18,18) :: c_f
    2596             real*8 dimension(18,18) :: a_f
    2597             real*8 dimension(4,6) :: chb_f
    2598             real*8 dimension(4,6) :: ahb_f
    2599             real*8 dimension(19) :: e0to_f
    2600             real*8 dimension(19) :: sgto_f
    2601             real*8 dimension(19) :: rnto_f
    2602             real*8 :: plt_f
    2603             real*8 :: slp_f
    2604             real*8 :: cohb_f
     3157            integer dimension(10) :: nvwml
     3158            integer dimension(10) :: ivwml1
     3159            integer dimension(10) :: n14ml
     3160            integer dimension(10) :: i14ml1
     3161            integer dimension(2600) :: ivwat1
     3162            integer dimension(2600) :: ivwat2
     3163            integer dimension(2600) :: i14at1
     3164            integer dimension(2600) :: i14at2
     3165            integer dimension(10400) :: lvwat1
     3166            integer dimension(10400) :: lvwat2
     3167            integer dimension(10400) :: l14at
     3168            integer dimension(10400) :: ixatvw
     3169            integer dimension(10400) :: ixat14
     3170            double precision dimension(800) :: olvlvr
     3171            double precision dimension(800) :: vlvr
     3172            double precision dimension(800) :: axvr
     3173            double precision :: beta
     3174            double precision dimension(18,18) :: c_f
     3175            double precision dimension(18,18) :: a_f
     3176            double precision dimension(4,6) :: chb_f
     3177            double precision dimension(4,6) :: ahb_f
     3178            double precision dimension(19) :: e0to_f
     3179            double precision dimension(19) :: sgto_f
     3180            double precision dimension(19) :: rnto_f
     3181            double precision :: plt_f
     3182            double precision :: slp_f
     3183            double precision :: cohb_f
    26053184            common /v_sol/ vdvol,asa,asap,asah
    26063185            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    26593238        subroutine zimmer(nresi) ! in :smmp:zimmer.f
    26603239            integer*4 intent(in) :: nresi
    2661             real*8 :: vdvol
    2662             real*8 :: asa
    2663             real*8 :: asap
    2664             real*8 :: asah
    2665             real*8 dimension(2600) :: cgat
    2666             real*8 dimension(2600) :: xbaat
    2667             real*8 dimension(2600) :: ybaat
    2668             real*8 dimension(2600) :: zbaat
    2669             real*8 dimension(2600) :: baat
    2670             real*8 dimension(2600) :: snbaat
    2671             real*8 dimension(2600) :: csbaat
    2672             real*8 dimension(2600) :: xtoat
    2673             real*8 dimension(2600) :: ytoat
    2674             real*8 dimension(2600) :: ztoat
    2675             real*8 dimension(2600) :: toat
    2676             real*8 dimension(2600) :: sntoat
    2677             real*8 dimension(2600) :: cstoat
    2678             real*8 dimension(2600) :: blat
    2679             real*8 dimension(2602) :: xat
    2680             real*8 dimension(2602) :: yat
    2681             real*8 dimension(2602) :: zat
    2682             integer*4 dimension(100,100) :: ijcont
    2683             integer*4 dimension(100) :: ind_alf
     3240            double precision :: vdvol
     3241            double precision :: asa
     3242            double precision :: asap
     3243            double precision :: asah
     3244            integer dimension(2600) :: cgat
     3245            double precision dimension(2600) :: xbaat
     3246            double precision dimension(2600) :: ybaat
     3247            double precision dimension(2600) :: zbaat
     3248            double precision dimension(2600) :: baat
     3249            double precision dimension(2600) :: snbaat
     3250            double precision dimension(2600) :: csbaat
     3251            double precision dimension(2600) :: xtoat
     3252            double precision dimension(2600) :: ytoat
     3253            double precision dimension(2600) :: ztoat
     3254            double precision dimension(2600) :: toat
     3255            double precision dimension(2600) :: sntoat
     3256            double precision dimension(2600) :: cstoat
     3257            double precision dimension(2600) :: blat
     3258            double precision dimension(2602) :: xat
     3259            double precision dimension(2602) :: yat
     3260            double precision dimension(2602) :: zat
     3261            integer dimension(100,100) :: ijcont
     3262            integer dimension(100) :: ind_alf
    26843263            logical dimension(18) :: do_s
    26853264            logical dimension(18) :: ac_s
    26863265            character dimension(500,4) :: nmrt
    26873266            character dimension(1000,3) :: nmvrrt
    2688             integer*4 :: nvr
    2689             real*8 dimension(9,18) :: coef_sl
    2690             real*8 dimension(9,18) :: rad_vdw
    2691             real*8 dimension(100) :: surfres
    2692             integer*4 :: ntyhb
    2693             integer*4 dimension(100) :: ixtyhb
    2694             integer*4 dimension(100) :: nutyhb
    2695             integer*4 dimension(10,10) :: mmhb
    2696             character dimension(4,2600) :: nmat
    2697             integer*4 :: lunlib
    2698             integer*4 :: lunseq
    2699             integer*4 :: lunchg
    2700             integer*4 :: lunvar
    2701             integer*4 :: lunrst
     3267            integer :: nvr
     3268            double precision dimension(9,18) :: coef_sl
     3269            double precision dimension(9,18) :: rad_vdw
     3270            double precision dimension(100) :: surfres
     3271            integer :: ntyhb
     3272            integer dimension(100) :: ixtyhb
     3273            integer dimension(100) :: nutyhb
     3274            integer dimension(10,10) :: mmhb
     3275            character dimension(2600,4) :: nmat
     3276            integer :: lunlib
     3277            integer :: lunseq
     3278            integer :: lunchg
     3279            integer :: lunvar
     3280            integer :: lunrst
    27023281            logical dimension(800) :: isrfvr
    2703             real*8 dimension(500) :: pbrt
    2704             real*8 dimension(1000) :: vuvrrt
    2705             real*8 dimension(1000) :: dvvrrt
    2706             integer*4 dimension(2600) :: ityat
    2707             integer*4 dimension(2600) :: iowat
    2708             integer*4 dimension(2600) :: iyowat
    2709             integer*4 dimension(2600) :: nbdat
    2710             integer*4 dimension(3,2600) :: ibdat
    2711             integer*4 dimension(3,2600) :: iybdat
    2712             integer*4 dimension(2600) :: ixmsat
    2713             real*8 :: ehm
    2714             real*8 dimension(18) :: atpl
    2715             real*8 dimension(18) :: efel
    2716             real*8 dimension(18) :: emin
    2717             real*8 dimension(18) :: rmin
    2718             real*8 dimension(4,6) :: chb_s
    2719             real*8 dimension(4,6) :: ahb_s
    2720             real*8 dimension(19) :: e0to_s
    2721             real*8 dimension(19) :: sgto_s
    2722             real*8 dimension(19) :: rnto_s
    2723             real*8 :: eps_s
    2724             real*8 dimension(2000,3) :: spoint
     3282            double precision dimension(500) :: pbrt
     3283            double precision dimension(1000) :: vuvrrt
     3284            double precision dimension(1000) :: dvvrrt
     3285            integer dimension(2600) :: ityat
     3286            integer dimension(2600) :: iowat
     3287            integer dimension(2600) :: iyowat
     3288            integer dimension(2600) :: nbdat
     3289            integer dimension(3,2600) :: ibdat
     3290            integer dimension(3,2600) :: iybdat
     3291            integer dimension(2600) :: ixmsat
     3292            double precision :: ehm
     3293            double precision dimension(18) :: atpl
     3294            double precision dimension(18) :: efel
     3295            double precision dimension(18) :: emin
     3296            double precision dimension(18) :: rmin
     3297            double precision dimension(4,6) :: chb_s
     3298            double precision dimension(4,6) :: ahb_s
     3299            double precision dimension(19) :: e0to_s
     3300            double precision dimension(19) :: sgto_s
     3301            double precision dimension(19) :: rnto_s
     3302            double precision :: eps_s
     3303            double precision dimension(2000,3) :: spoint
    27253304            logical dimension(18) :: do_f
    27263305            logical dimension(18) :: ac_f
    … …  
    27303309            character*80 :: varfil
    27313310            character*80 :: rstfil
    2732             integer*4 :: ntlml
    2733             integer*4 dimension(10) :: irsml1
    2734             integer*4 dimension(10) :: irsml2
    2735             integer*4 dimension(10) :: ivrml1
    2736             integer*4 dimension(10) :: nvrml
    2737             integer*4 dimension(10) :: imsml1
    2738             integer*4 dimension(10) :: nmsml
    2739             integer*4 dimension(10) :: iadml1
    2740             integer*4 dimension(10) :: nadml
    2741             integer*4 dimension(3,10) :: ixrfpt
    2742             integer*4 dimension(2600) :: ixatp
    2743             integer*4 :: ireg
    2744             real*8 dimension(100) :: blath
    2745             real*8 dimension(100) :: baath
    2746             real*8 dimension(100) :: toath
    2747             real*8 dimension(100) :: cgath
    2748             integer*4 dimension(100,100) :: iref
    2749             integer*4 :: nci
     3311            integer :: ntlml
     3312            integer dimension(10) :: irsml1
     3313            integer dimension(10) :: irsml2
     3314            integer dimension(10) :: ivrml1
     3315            integer dimension(10) :: nvrml
     3316            integer dimension(10) :: imsml1
     3317            integer dimension(10) :: nmsml
     3318            integer dimension(10) :: iadml1
     3319            integer dimension(10) :: nadml
     3320            integer dimension(3,10) :: ixrfpt
     3321            integer dimension(2600) :: ixatp
     3322            integer :: ireg
     3323            double precision dimension(100) :: blath
     3324            double precision dimension(100) :: baath
     3325            double precision dimension(100) :: toath
     3326            double precision dimension(100) :: cgath
     3327            integer dimension(100,100) :: iref
     3328            integer :: nci
    27503329            logical :: flex
    27513330            logical :: tesgrd
    27523331            logical :: sh2
    27533332            logical :: epsd
    2754             integer*4 :: ientyp
    2755             real*8 :: rgyh
    2756             real*8 :: rgyp
    2757             integer*4 :: idloa
    2758             integer*4 :: idloz
    2759             integer*4 :: idupa
    2760             integer*4 :: idupz
     3333            integer :: ientyp
     3334            double precision :: rgyh
     3335            double precision :: rgyp
     3336            integer :: idloa
     3337            integer :: idloz
     3338            integer :: idupa
     3339            integer :: idupz
    27613340            integer :: myrank
    27623341            integer :: no
    … …  
    27653344            character dimension(100,4) :: nmath
    27663345            character dimension(100,3) :: nmvrh
    2767             integer*4 dimension(100) :: ityath
    2768             integer*4 dimension(100) :: iowath
    2769             integer*4 dimension(100) :: iyowath
    2770             integer*4 dimension(100) :: nbdath
    2771             integer*4 dimension(3,100) :: ibdath
    2772             integer*4 dimension(3,100) :: iybdath
    2773             integer*4 dimension(100) :: ityvrh
    2774             integer*4 dimension(100) :: iclvrh
    2775             integer*4 dimension(100) :: iatvrh
     3346            integer dimension(100) :: ityath
     3347            integer dimension(100) :: iowath
     3348            integer dimension(100) :: iyowath
     3349            integer dimension(100) :: nbdath
     3350            integer dimension(3,100) :: ibdath
     3351            integer dimension(3,100) :: iybdath
     3352            integer dimension(100) :: ityvrh
     3353            integer dimension(100) :: iclvrh
     3354            integer dimension(100) :: iatvrh
    27763355            character dimension(100,4) :: seq
    2777             real*8 dimension(2600) :: rvdw
    2778             real*8 dimension(2600) :: sigma
    2779             real*8 dimension(2600,3) :: gradan
    2780             integer*4 dimension(18,18) :: ihbty
    2781             integer*4 :: npnt
     3356            double precision dimension(2600) :: rvdw
     3357            double precision dimension(2600) :: sigma
     3358            double precision dimension(2600,3) :: gradan
     3359            integer dimension(18,18) :: ihbty
     3360            integer :: npnt
    27823361            character dimension(10,80) :: nmml
    2783             real*8 dimension(18,18) :: cij
    2784             real*8 dimension(18,18) :: aij
    2785             real*8 dimension(18,18) :: a14
    2786             real*8 dimension(18,18) :: chb
    2787             real*8 dimension(18,18) :: ahb
    2788             real*8 dimension(19) :: e0to
    2789             real*8 dimension(19) :: sgto
    2790             real*8 dimension(19) :: rnto
    2791             real*8 dimension(19) :: esnto
    2792             real*8 :: conv
    2793             real*8 :: plt
    2794             real*8 :: slp
    2795             real*8 :: cohb
    2796             integer*4 dimension(100) :: iatrs1
    2797             integer*4 dimension(100) :: iatrs2
    2798             integer*4 dimension(100) :: ixatrs
    2799             integer*4 dimension(100) :: ivrrs1
    2800             integer*4 dimension(100) :: nvrrs
    2801             integer*4 :: ntlrt
    2802             integer*4 :: ntlsu
    2803             integer*4 dimension(500) :: i1vrrt
    2804             integer*4 dimension(500) :: i2vrrt
    2805             integer*4 dimension(4800) :: iprtsu
    2806             integer*4 dimension(800) :: i1rtsu
    2807             integer*4 dimension(800) :: nrtsu
    2808             integer*4 dimension(800) :: i1vrsu
    2809             integer*4 dimension(800) :: i2vrsu
    2810             integer*4 dimension(800) :: ipvrsu
    2811             real*8 dimension(3,10) :: rfpt
    2812             real*8 dimension(6,10) :: gbpr
    2813             real*8 dimension(3,10) :: xrfax
    2814             real*8 dimension(3,10) :: yrfax
    2815             real*8 dimension(3,10) :: zrfax
     3362            double precision dimension(18,18) :: cij
     3363            double precision dimension(18,18) :: aij
     3364            double precision dimension(18,18) :: a14
     3365            double precision dimension(18,18) :: chb
     3366            double precision dimension(18,18) :: ahb
     3367            double precision dimension(19) :: e0to
     3368            double precision dimension(19) :: sgto
     3369            double precision dimension(19) :: rnto
     3370            double precision dimension(19) :: esnto
     3371            double precision :: conv
     3372            double precision :: plt
     3373            double precision :: slp
     3374            double precision :: cohb
     3375            integer dimension(100) :: iatrs1
     3376            integer dimension(100) :: iatrs2
     3377            integer dimension(100) :: ixatrs
     3378            integer dimension(100) :: ivrrs1
     3379            integer dimension(100) :: nvrrs
     3380            integer :: ntlrt
     3381            integer :: ntlsu
     3382            integer dimension(500) :: i1vrrt
     3383            integer dimension(500) :: i2vrrt
     3384            integer dimension(4800) :: iprtsu
     3385            integer dimension(800) :: i1rtsu
     3386            integer dimension(800) :: nrtsu
     3387            integer dimension(800) :: i1vrsu
     3388            integer dimension(800) :: i2vrsu
     3389            integer dimension(800) :: ipvrsu
     3390            double precision dimension(3,10) :: rfpt
     3391            double precision dimension(6,10) :: gbpr
     3392            double precision dimension(3,10) :: xrfax
     3393            double precision dimension(3,10) :: yrfax
     3394            double precision dimension(3,10) :: zrfax
    28163395            logical dimension(800) :: fxvr
    2817             real*8 :: eyel
    2818             real*8 :: eyvw
    2819             real*8 :: eyhb
    2820             real*8 :: eyvr
    2821             real*8 :: eysm
    2822             real*8 :: eysl
    2823             real*8 :: eyrg
    2824             real*8 :: eyslh
    2825             real*8 :: eyslp
    2826             real*8 :: eyab
    2827             real*8 :: eysmi
    2828             real*8 :: eyhbi
    2829             real*8 :: eyeli
    2830             real*8 :: eyvwi
    2831             real*8 dimension(800) :: gdeyvr
    2832             real*8 dimension(800) :: gdeyrg
    2833             real*8 dimension(800) :: gdeysl
    2834             real*8 dimension(60) :: gdeygb
    2835             real*8 :: wtey
    2836             real*8 :: wtrg
    2837             integer*4 dimension(800) :: iatvr
    2838             integer*4 dimension(800) :: ityvr
    2839             integer*4 dimension(800) :: iclvr
    2840             integer*4 dimension(800) :: iorvr
    2841             integer*4 dimension(800) :: imsvr1
    2842             integer*4 dimension(800) :: imsvr2
    2843             integer*4 dimension(2400) :: latms1
    2844             integer*4 dimension(2400) :: latms2
    2845             integer*4 dimension(800) :: iadvr1
    2846             integer*4 dimension(800) :: iadvr2
    2847             integer*4 dimension(800) :: ladvr
    2848             integer*4 dimension(800) :: idvr
     3396            double precision :: eyel
     3397            double precision :: eyvw
     3398            double precision :: eyhb
     3399            double precision :: eyvr
     3400            double precision :: eysm
     3401            double precision :: eysl
     3402            double precision :: eyrg
     3403            double precision :: eyslh
     3404            double precision :: eyslp
     3405            double precision :: eyab
     3406            double precision :: eysmi
     3407            double precision :: eyhbi
     3408            double precision :: eyeli
     3409            double precision :: eyvwi
     3410            double precision dimension(800) :: gdeyvr
     3411            double precision dimension(800) :: gdeyrg
     3412            double precision dimension(800) :: gdeysl
     3413            double precision dimension(60) :: gdeygb
     3414            double precision :: wtey
     3415            double precision :: wtrg
     3416            integer dimension(800) :: iatvr
     3417            integer dimension(800) :: ityvr
     3418            integer dimension(800) :: iclvr
     3419            integer dimension(800) :: iorvr
     3420            integer dimension(800) :: imsvr1
     3421            integer dimension(800) :: imsvr2
     3422            integer dimension(2400) :: latms1
     3423            integer dimension(2400) :: latms2
     3424            integer dimension(800) :: iadvr1
     3425            integer dimension(800) :: iadvr2
     3426            integer dimension(800) :: ladvr
     3427            integer dimension(800) :: idvr
    28493428            integer :: enysolct
    2850             character dimension(3,800) :: nmvr
    2851             real*8 :: boxsize
     3429            character dimension(800,3) :: nmvr
     3430            double precision :: boxsize
    28523431            integer :: seed
    2853             character*100 :: zimm
    2854             integer*4 :: itysol
     3432            character*mxrs :: zimm
     3433            integer :: itysol
    28553434            logical :: isolscl
    2856             real*8 dimension(100) :: rsstrg
     3435            double precision dimension(100) :: rsstrg
    28573436            character dimension(35,4) :: rsnmcd
    28583437            character dimension(35) :: onltcd
    … …  
    28603439            integer :: upchswitch
    28613440            double precision :: bgsprob
    2862             integer*4 dimension(10) :: nvwml
    2863             integer*4 dimension(10) :: ivwml1
    2864             integer*4 dimension(10) :: n14ml
    2865             integer*4 dimension(10) :: i14ml1
    2866             integer*4 dimension(2600) :: ivwat1
    2867             integer*4 dimension(2600) :: ivwat2
    2868             integer*4 dimension(2600) :: i14at1
    2869             integer*4 dimension(2600) :: i14at2
    2870             integer*4 dimension(10400) :: lvwat1
    2871             integer*4 dimension(10400) :: lvwat2
    2872             integer*4 dimension(10400) :: l14at
    2873             integer*4 dimension(10400) :: ixatvw
    2874             integer*4 dimension(10400) :: ixat14
    2875             real*8 dimension(800) :: olvlvr
    2876             real*8 dimension(800) :: vlvr
    2877             real*8 dimension(800) :: axvr
    2878             real*8 :: beta
    2879             real*8 dimension(18,18) :: c_f
    2880             real*8 dimension(18,18) :: a_f
    2881             real*8 dimension(4,6) :: chb_f
    2882             real*8 dimension(4,6) :: ahb_f
    2883             real*8 dimension(19) :: e0to_f
    2884             real*8 dimension(19) :: sgto_f
    2885             real*8 dimension(19) :: rnto_f
    2886             real*8 :: plt_f
    2887             real*8 :: slp_f
    2888             real*8 :: cohb_f
     3441            integer dimension(10) :: nvwml
     3442            integer dimension(10) :: ivwml1
     3443            integer dimension(10) :: n14ml
     3444            integer dimension(10) :: i14ml1
     3445            integer dimension(2600) :: ivwat1
     3446            integer dimension(2600) :: ivwat2
     3447            integer dimension(2600) :: i14at1
     3448            integer dimension(2600) :: i14at2
     3449            integer dimension(10400) :: lvwat1
     3450            integer dimension(10400) :: lvwat2
     3451            integer dimension(10400) :: l14at
     3452            integer dimension(10400) :: ixatvw
     3453            integer dimension(10400) :: ixat14
     3454            double precision dimension(800) :: olvlvr
     3455            double precision dimension(800) :: vlvr
     3456            double precision dimension(800) :: axvr
     3457            double precision :: beta
     3458            double precision dimension(18,18) :: c_f
     3459            double precision dimension(18,18) :: a_f
     3460            double precision dimension(4,6) :: chb_f
     3461            double precision dimension(4,6) :: ahb_f
     3462            double precision dimension(19) :: e0to_f
     3463            double precision dimension(19) :: sgto_f
     3464            double precision dimension(19) :: rnto_f
     3465            double precision :: plt_f
     3466            double precision :: slp_f
     3467            double precision :: cohb_f
    28893468            common /v_sol/ vdvol,asa,asap,asah
    28903469            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    29453524            integer intent(in) :: nswp
    29463525            integer intent(in) :: nmes
    2947             double precision intent(in) :: temp
    2948             logical optional,intent(in) :: lrand=1
    2949             real*8 :: vdvol
    2950             real*8 :: asa
    2951             real*8 :: asap
    2952             real*8 :: asah
    2953             real*8 dimension(2600) :: cgat
    2954             real*8 dimension(2600) :: xbaat
    2955             real*8 dimension(2600) :: ybaat
    2956             real*8 dimension(2600) :: zbaat
    2957             real*8 dimension(2600) :: baat
    2958             real*8 dimension(2600) :: snbaat
    2959             real*8 dimension(2600) :: csbaat
    2960             real*8 dimension(2600) :: xtoat
    2961             real*8 dimension(2600) :: ytoat
    2962             real*8 dimension(2600) :: ztoat
    2963             real*8 dimension(2600) :: toat
    2964             real*8 dimension(2600) :: sntoat
    2965             real*8 dimension(2600) :: cstoat
    2966             real*8 dimension(2600) :: blat
    2967             real*8 dimension(2602) :: xat
    2968             real*8 dimension(2602) :: yat
    2969             real*8 dimension(2602) :: zat
    2970             integer*4 dimension(100,100) :: ijcont
    2971             integer*4 dimension(100) :: ind_alf
     3526            double precision intent(in):: temp
     3527            logical optional, intent(in) :: lrand=1
     3528            double precision :: vdvol
     3529            double precision :: asa
     3530            double precision :: asap
     3531            double precision :: asah
     3532            integer dimension(2600) :: cgat
     3533            double precision dimension(2600) :: xbaat
     3534            double precision dimension(2600) :: ybaat
     3535            double precision dimension(2600) :: zbaat
     3536            double precision dimension(2600) :: baat
     3537            double precision dimension(2600) :: snbaat
     3538            double precision dimension(2600) :: csbaat
     3539            double precision dimension(2600) :: xtoat
     3540            double precision dimension(2600) :: ytoat
     3541            double precision dimension(2600) :: ztoat
     3542            double precision dimension(2600) :: toat
     3543            double precision dimension(2600) :: sntoat
     3544            double precision dimension(2600) :: cstoat
     3545            double precision dimension(2600) :: blat
     3546            double precision dimension(2602) :: xat
     3547            double precision dimension(2602) :: yat
     3548            double precision dimension(2602) :: zat
     3549            integer dimension(100,100) :: ijcont
     3550            integer dimension(100) :: ind_alf
    29723551            logical dimension(18) :: do_s
    29733552            logical dimension(18) :: ac_s
    29743553            character dimension(500,4) :: nmrt
    29753554            character dimension(1000,3) :: nmvrrt
    2976             integer*4 :: nvr
    2977             real*8 dimension(9,18) :: coef_sl
    2978             real*8 dimension(9,18) :: rad_vdw
    2979             real*8 dimension(100) :: surfres
    2980             integer*4 :: ntyhb
    2981             integer*4 dimension(100) :: ixtyhb
    2982             integer*4 dimension(100) :: nutyhb
    2983             integer*4 dimension(10,10) :: mmhb
    2984             character dimension(4,2600) :: nmat
    2985             integer*4 :: lunlib
    2986             integer*4 :: lunseq
    2987             integer*4 :: lunchg
    2988             integer*4 :: lunvar
    2989             integer*4 :: lunrst
     3555            integer :: nvr
     3556            double precision dimension(9,18) :: coef_sl
     3557            double precision dimension(9,18) :: rad_vdw
     3558            double precision dimension(100) :: surfres
     3559            integer :: ntyhb
     3560            integer dimension(100) :: ixtyhb
     3561            integer dimension(100) :: nutyhb
     3562            integer dimension(10,10) :: mmhb
     3563            character dimension(2600,4) :: nmat
     3564            integer :: lunlib
     3565            integer :: lunseq
     3566            integer :: lunchg
     3567            integer :: lunvar
     3568            integer :: lunrst
    29903569            logical dimension(800) :: isrfvr
    2991             real*8 dimension(500) :: pbrt
    2992             real*8 dimension(1000) :: vuvrrt
    2993             real*8 dimension(1000) :: dvvrrt
    2994             integer*4 dimension(2600) :: ityat
    2995             integer*4 dimension(2600) :: iowat
    2996             integer*4 dimension(2600) :: iyowat
    2997             integer*4 dimension(2600) :: nbdat
    2998             integer*4 dimension(3,2600) :: ibdat
    2999             integer*4 dimension(3,2600) :: iybdat
    3000             integer*4 dimension(2600) :: ixmsat
    3001             real*8 :: ehm
    3002             real*8 dimension(18) :: atpl
    3003             real*8 dimension(18) :: efel
    3004             real*8 dimension(18) :: emin
    3005             real*8 dimension(18) :: rmin
    3006             real*8 dimension(4,6) :: chb_s
    3007             real*8 dimension(4,6) :: ahb_s
    3008             real*8 dimension(19) :: e0to_s
    3009             real*8 dimension(19) :: sgto_s
    3010             real*8 dimension(19) :: rnto_s
    3011             real*8 :: eps_s
    3012             real*8 dimension(2000,3) :: spoint
     3570            double precision dimension(500) :: pbrt
     3571            double precision dimension(1000) :: vuvrrt
     3572            double precision dimension(1000) :: dvvrrt
     3573            integer dimension(2600) :: ityat
     3574            integer dimension(2600) :: iowat
     3575            integer dimension(2600) :: iyowat
     3576            integer dimension(2600) :: nbdat
     3577            integer dimension(3,2600) :: ibdat
     3578            integer dimension(3,2600) :: iybdat
     3579            integer dimension(2600) :: ixmsat
     3580            double precision :: ehm
     3581            double precision dimension(18) :: atpl
     3582            double precision dimension(18) :: efel
     3583            double precision dimension(18) :: emin
     3584            double precision dimension(18) :: rmin
     3585            double precision dimension(4,6) :: chb_s
     3586            double precision dimension(4,6) :: ahb_s
     3587            double precision dimension(19) :: e0to_s
     3588            double precision dimension(19) :: sgto_s
     3589            double precision dimension(19) :: rnto_s
     3590            double precision :: eps_s
     3591            double precision dimension(2000,3) :: spoint
    30133592            logical dimension(18) :: do_f
    30143593            logical dimension(18) :: ac_f
    … …  
    30183597            character*80 :: varfil
    30193598            character*80 :: rstfil
    3020             integer*4 :: ntlml
    3021             integer*4 dimension(10) :: irsml1
    3022             integer*4 dimension(10) :: irsml2
    3023             integer*4 dimension(10) :: ivrml1
    3024             integer*4 dimension(10) :: nvrml
    3025             integer*4 dimension(10) :: imsml1
    3026             integer*4 dimension(10) :: nmsml
    3027             integer*4 dimension(10) :: iadml1
    3028             integer*4 dimension(10) :: nadml
    3029             integer*4 dimension(3,10) :: ixrfpt
    3030             integer*4 dimension(2600) :: ixatp
    3031             integer*4 :: ireg
    3032             real*8 dimension(100) :: blath
    3033             real*8 dimension(100) :: baath
    3034             real*8 dimension(100) :: toath
    3035             real*8 dimension(100) :: cgath
    3036             integer*4 dimension(100,100) :: iref
    3037             integer*4 :: nci
     3599            integer :: ntlml
     3600            integer dimension(10) :: irsml1
     3601            integer dimension(10) :: irsml2
     3602            integer dimension(10) :: ivrml1
     3603            integer dimension(10) :: nvrml
     3604            integer dimension(10) :: imsml1
     3605            integer dimension(10) :: nmsml
     3606            integer dimension(10) :: iadml1
     3607            integer dimension(10) :: nadml
     3608            integer dimension(3,10) :: ixrfpt
     3609            integer dimension(2600) :: ixatp
     3610            integer :: ireg
     3611            double precision dimension(100) :: blath
     3612            double precision dimension(100) :: baath
     3613            double precision dimension(100) :: toath
     3614            double precision dimension(100) :: cgath
     3615            integer dimension(100,100) :: iref
     3616            integer :: nci
    30383617            logical :: flex
    30393618            logical :: tesgrd
    30403619            logical :: sh2
    30413620            logical :: epsd
    3042             integer*4 :: ientyp
    3043             real*8 :: rgyh
    3044             real*8 :: rgyp
    3045             integer*4 :: idloa
    3046             integer*4 :: idloz
    3047             integer*4 :: idupa
    3048             integer*4 :: idupz
     3621            integer :: ientyp
     3622            double precision :: rgyh
     3623            double precision :: rgyp
     3624            integer :: idloa
     3625            integer :: idloz
     3626            integer :: idupa
     3627            integer :: idupz
    30493628            integer :: myrank
    30503629            integer :: no
    … …  
    30533632            character dimension(100,4) :: nmath
    30543633            character dimension(100,3) :: nmvrh
    3055             integer*4 dimension(100) :: ityath
    3056             integer*4 dimension(100) :: iowath
    3057             integer*4 dimension(100) :: iyowath
    3058             integer*4 dimension(100) :: nbdath
    3059             integer*4 dimension(3,100) :: ibdath
    3060             integer*4 dimension(3,100) :: iybdath
    3061             integer*4 dimension(100) :: ityvrh
    3062             integer*4 dimension(100) :: iclvrh
    3063             integer*4 dimension(100) :: iatvrh
     3634            integer dimension(100) :: ityath
     3635            integer dimension(100) :: iowath
     3636            integer dimension(100) :: iyowath
     3637            integer dimension(100) :: nbdath
     3638            integer dimension(3,100) :: ibdath
     3639            integer dimension(3,100) :: iybdath
     3640            integer dimension(100) :: ityvrh
     3641            integer dimension(100) :: iclvrh
     3642            integer dimension(100) :: iatvrh
    30643643            character dimension(100,4) :: seq
    3065             real*8 dimension(2600) :: rvdw
    3066             real*8 dimension(2600) :: sigma
    3067             real*8 dimension(2600,3) :: gradan
    3068             integer*4 dimension(18,18) :: ihbty
    3069             integer*4 :: npnt
     3644            double precision dimension(2600) :: rvdw
     3645            double precision dimension(2600) :: sigma
     3646            double precision dimension(2600,3) :: gradan
     3647            integer dimension(18,18) :: ihbty
     3648            integer :: npnt
    30703649            character dimension(10,80) :: nmml
    3071             real*8 dimension(18,18) :: cij
    3072             real*8 dimension(18,18) :: aij
    3073             real*8 dimension(18,18) :: a14
    3074             real*8 dimension(18,18) :: chb
    3075             real*8 dimension(18,18) :: ahb
    3076             real*8 dimension(19) :: e0to
    3077             real*8 dimension(19) :: sgto
    3078             real*8 dimension(19) :: rnto
    3079             real*8 dimension(19) :: esnto
    3080             real*8 :: conv
    3081             real*8 :: plt
    3082             real*8 :: slp
    3083             real*8 :: cohb
    3084             integer*4 dimension(100) :: iatrs1
    3085             integer*4 dimension(100) :: iatrs2
    3086             integer*4 dimension(100) :: ixatrs
    3087             integer*4 dimension(100) :: ivrrs1
    3088             integer*4 dimension(100) :: nvrrs
    3089             integer*4 :: ntlrt
    3090             integer*4 :: ntlsu
    3091             integer*4 dimension(500) :: i1vrrt
    3092             integer*4 dimension(500) :: i2vrrt
    3093             integer*4 dimension(4800) :: iprtsu
    3094             integer*4 dimension(800) :: i1rtsu
    3095             integer*4 dimension(800) :: nrtsu
    3096             integer*4 dimension(800) :: i1vrsu
    3097             integer*4 dimension(800) :: i2vrsu
    3098             integer*4 dimension(800) :: ipvrsu
    3099             real*8 dimension(3,10) :: rfpt
    3100             real*8 dimension(6,10) :: gbpr
    3101             real*8 dimension(3,10) :: xrfax
    3102             real*8 dimension(3,10) :: yrfax
    3103             real*8 dimension(3,10) :: zrfax
     3650            double precision dimension(18,18) :: cij
     3651            double precision dimension(18,18) :: aij
     3652            double precision dimension(18,18) :: a14
     3653            double precision dimension(18,18) :: chb
     3654            double precision dimension(18,18) :: ahb
     3655            double precision dimension(19) :: e0to
     3656            double precision dimension(19) :: sgto
     3657            double precision dimension(19) :: rnto
     3658            double precision dimension(19) :: esnto
     3659            double precision :: conv
     3660            double precision :: plt
     3661            double precision :: slp
     3662            double precision :: cohb
     3663            integer dimension(100) :: iatrs1
     3664            integer dimension(100) :: iatrs2
     3665            integer dimension(100) :: ixatrs
     3666            integer dimension(100) :: ivrrs1
     3667            integer dimension(100) :: nvrrs
     3668            integer :: ntlrt
     3669            integer :: ntlsu
     3670            integer dimension(500) :: i1vrrt
     3671            integer dimension(500) :: i2vrrt
     3672            integer dimension(4800) :: iprtsu
     3673            integer dimension(800) :: i1rtsu
     3674            integer dimension(800) :: nrtsu
     3675            integer dimension(800) :: i1vrsu
     3676            integer dimension(800) :: i2vrsu
     3677            integer dimension(800) :: ipvrsu
     3678            double precision dimension(3,10) :: rfpt
     3679            double precision dimension(6,10) :: gbpr
     3680            double precision dimension(3,10) :: xrfax
     3681            double precision dimension(3,10) :: yrfax
     3682            double precision dimension(3,10) :: zrfax
    31043683            logical dimension(800) :: fxvr
    3105             real*8 :: eyel
    3106             real*8 :: eyvw
    3107             real*8 :: eyhb
    3108             real*8 :: eyvr
    3109             real*8 :: eysm
    3110             real*8 :: eysl
    3111             real*8 :: eyrg
    3112             real*8 :: eyslh
    3113             real*8 :: eyslp
    3114             real*8 :: eyab
    3115             real*8 :: eysmi
    3116             real*8 :: eyhbi
    3117             real*8 :: eyeli
    3118             real*8 :: eyvwi
    3119             real*8 dimension(800) :: gdeyvr
    3120             real*8 dimension(800) :: gdeyrg
    3121             real*8 dimension(800) :: gdeysl
    3122             real*8 dimension(60) :: gdeygb
    3123             real*8 :: wtey
    3124             real*8 :: wtrg
    3125             integer*4 dimension(800) :: iatvr
    3126             integer*4 dimension(800) :: ityvr
    3127             integer*4 dimension(800) :: iclvr
    3128             integer*4 dimension(800) :: iorvr
    3129             integer*4 dimension(800) :: imsvr1
    3130             integer*4 dimension(800) :: imsvr2
    3131             integer*4 dimension(2400) :: latms1
    3132             integer*4 dimension(2400) :: latms2
    3133             integer*4 dimension(800) :: iadvr1
    3134             integer*4 dimension(800) :: iadvr2
    3135             integer*4 dimension(800) :: ladvr
    3136             integer*4 dimension(800) :: idvr
     3684            double precision :: eyel
     3685            double precision :: eyvw
     3686            double precision :: eyhb
     3687            double precision :: eyvr
     3688            double precision :: eysm
     3689            double precision :: eysl
     3690            double precision :: eyrg
     3691            double precision :: eyslh
     3692            double precision :: eyslp
     3693            double precision :: eyab
     3694            double precision :: eysmi
     3695            double precision :: eyhbi
     3696            double precision :: eyeli
     3697            double precision :: eyvwi
     3698            double precision dimension(800) :: gdeyvr
     3699            double precision dimension(800) :: gdeyrg
     3700            double precision dimension(800) :: gdeysl
     3701            double precision dimension(60) :: gdeygb
     3702            double precision :: wtey
     3703            double precision :: wtrg
     3704            integer dimension(800) :: iatvr
     3705            integer dimension(800) :: ityvr
     3706            integer dimension(800) :: iclvr
     3707            integer dimension(800) :: iorvr
     3708            integer dimension(800) :: imsvr1
     3709            integer dimension(800) :: imsvr2
     3710            integer dimension(2400) :: latms1
     3711            integer dimension(2400) :: latms2
     3712            integer dimension(800) :: iadvr1
     3713            integer dimension(800) :: iadvr2
     3714            integer dimension(800) :: ladvr
     3715            integer dimension(800) :: idvr
    31373716            integer :: enysolct
    3138             character dimension(3,800) :: nmvr
    3139             real*8 :: boxsize
     3717            character dimension(800,3) :: nmvr
     3718            double precision :: boxsize
    31403719            integer :: seed
    3141             character*100 :: zimm
    3142             integer*4 :: itysol
     3720            character*mxrs :: zimm
     3721            integer :: itysol
    31433722            logical :: isolscl
    3144             real*8 dimension(100) :: rsstrg
     3723            double precision dimension(100) :: rsstrg
    31453724            character dimension(35,4) :: rsnmcd
    31463725            character dimension(35) :: onltcd
    … …  
    31483727            integer :: upchswitch
    31493728            double precision :: bgsprob
    3150             integer*4 dimension(10) :: nvwml
    3151             integer*4 dimension(10) :: ivwml1
    3152             integer*4 dimension(10) :: n14ml
    3153             integer*4 dimension(10) :: i14ml1
    3154             integer*4 dimension(2600) :: ivwat1
    3155             integer*4 dimension(2600) :: ivwat2
    3156             integer*4 dimension(2600) :: i14at1
    3157             integer*4 dimension(2600) :: i14at2
    3158             integer*4 dimension(10400) :: lvwat1
    3159             integer*4 dimension(10400) :: lvwat2
    3160             integer*4 dimension(10400) :: l14at
    3161             integer*4 dimension(10400) :: ixatvw
    3162             integer*4 dimension(10400) :: ixat14
    3163             real*8 dimension(800) :: olvlvr
    3164             real*8 dimension(800) :: vlvr
    3165             real*8 dimension(800) :: axvr
    3166             real*8 :: beta
    3167             real*8 dimension(18,18) :: c_f
    3168             real*8 dimension(18,18) :: a_f
    3169             real*8 dimension(4,6) :: chb_f
    3170             real*8 dimension(4,6) :: ahb_f
    3171             real*8 dimension(19) :: e0to_f
    3172             real*8 dimension(19) :: sgto_f
    3173             real*8 dimension(19) :: rnto_f
    3174             real*8 :: plt_f
    3175             real*8 :: slp_f
    3176             real*8 :: cohb_f
     3729            integer dimension(10) :: nvwml
     3730            integer dimension(10) :: ivwml1
     3731            integer dimension(10) :: n14ml
     3732            integer dimension(10) :: i14ml1
     3733            integer dimension(2600) :: ivwat1
     3734            integer dimension(2600) :: ivwat2
     3735            integer dimension(2600) :: i14at1
     3736            integer dimension(2600) :: i14at2
     3737            integer dimension(10400) :: lvwat1
     3738            integer dimension(10400) :: lvwat2
     3739            integer dimension(10400) :: l14at
     3740            integer dimension(10400) :: ixatvw
     3741            integer dimension(10400) :: ixat14
     3742            double precision dimension(800) :: olvlvr
     3743            double precision dimension(800) :: vlvr
     3744            double precision dimension(800) :: axvr
     3745            double precision :: beta
     3746            double precision dimension(18,18) :: c_f
     3747            double precision dimension(18,18) :: a_f
     3748            double precision dimension(4,6) :: chb_f
     3749            double precision dimension(4,6) :: ahb_f
     3750            double precision dimension(19) :: e0to_f
     3751            double precision dimension(19) :: sgto_f
     3752            double precision dimension(19) :: rnto_f
     3753            double precision :: plt_f
     3754            double precision :: slp_f
     3755            double precision :: cohb_f
    31773756            common /v_sol/ vdvol,asa,asap,asah
    31783757            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    32303809        end subroutine canon
    32313810        subroutine outpdb(nml,filename) ! in :smmp:outpdb.f
    3232             integer*4 :: nml
    3233             character*(*) :: filename
    3234             real*8 :: vdvol
    3235             real*8 :: asa
    3236             real*8 :: asap
    3237             real*8 :: asah
    3238             real*8 dimension(2600) :: cgat
    3239             real*8 dimension(2600) :: xbaat
    3240             real*8 dimension(2600) :: ybaat
    3241             real*8 dimension(2600) :: zbaat
    3242             real*8 dimension(2600) :: baat
    3243             real*8 dimension(2600) :: snbaat
    3244             real*8 dimension(2600) :: csbaat
    3245             real*8 dimension(2600) :: xtoat
    3246             real*8 dimension(2600) :: ytoat
    3247             real*8 dimension(2600) :: ztoat
    3248             real*8 dimension(2600) :: toat
    3249             real*8 dimension(2600) :: sntoat
    3250             real*8 dimension(2600) :: cstoat
    3251             real*8 dimension(2600) :: blat
    3252             real*8 dimension(2602) :: xat
    3253             real*8 dimension(2602) :: yat
    3254             real*8 dimension(2602) :: zat
    3255             integer*4 dimension(100,100) :: ijcont
    3256             integer*4 dimension(100) :: ind_alf
     3811            integer*4 intent(in) :: nml
     3812            character*(*) intent(in) :: filename
     3813            double precision :: vdvol
     3814            double precision :: asa
     3815            double precision :: asap
     3816            double precision :: asah
     3817            integer dimension(2600) :: cgat
     3818            double precision dimension(2600) :: xbaat
     3819            double precision dimension(2600) :: ybaat
     3820            double precision dimension(2600) :: zbaat
     3821            double precision dimension(2600) :: baat
     3822            double precision dimension(2600) :: snbaat
     3823            double precision dimension(2600) :: csbaat
     3824            double precision dimension(2600) :: xtoat
     3825            double precision dimension(2600) :: ytoat
     3826            double precision dimension(2600) :: ztoat
     3827            double precision dimension(2600) :: toat
     3828            double precision dimension(2600) :: sntoat
     3829            double precision dimension(2600) :: cstoat
     3830            double precision dimension(2600) :: blat
     3831            double precision dimension(2602) :: xat
     3832            double precision dimension(2602) :: yat
     3833            double precision dimension(2602) :: zat
     3834            integer dimension(100,100) :: ijcont
     3835            integer dimension(100) :: ind_alf
    32573836            logical dimension(18) :: do_s
    32583837            logical dimension(18) :: ac_s
    32593838            character dimension(500,4) :: nmrt
    32603839            character dimension(1000,3) :: nmvrrt
    3261             integer*4 :: nvr
    3262             real*8 dimension(9,18) :: coef_sl
    3263             real*8 dimension(9,18) :: rad_vdw
    3264             real*8 dimension(100) :: surfres
    3265             integer*4 :: ntyhb
    3266             integer*4 dimension(100) :: ixtyhb
    3267             integer*4 dimension(100) :: nutyhb
    3268             integer*4 dimension(10,10) :: mmhb
    3269             character dimension(4,2600) :: nmat
    3270             integer*4 :: lunlib
    3271             integer*4 :: lunseq
    3272             integer*4 :: lunchg
    3273             integer*4 :: lunvar
    3274             integer*4 :: lunrst
     3840            integer :: nvr
     3841            double precision dimension(9,18) :: coef_sl
     3842            double precision dimension(9,18) :: rad_vdw
     3843            double precision dimension(100) :: surfres
     3844            integer :: ntyhb
     3845            integer dimension(100) :: ixtyhb
     3846            integer dimension(100) :: nutyhb
     3847            integer dimension(10,10) :: mmhb
     3848            character dimension(2600,4) :: nmat
     3849            integer :: lunlib
     3850            integer :: lunseq
     3851            integer :: lunchg
     3852            integer :: lunvar
     3853            integer :: lunrst
    32753854            logical dimension(800) :: isrfvr
    3276             real*8 dimension(500) :: pbrt
    3277             real*8 dimension(1000) :: vuvrrt
    3278             real*8 dimension(1000) :: dvvrrt
    3279             integer*4 dimension(2600) :: ityat
    3280             integer*4 dimension(2600) :: iowat
    3281             integer*4 dimension(2600) :: iyowat
    3282             integer*4 dimension(2600) :: nbdat
    3283             integer*4 dimension(3,2600) :: ibdat
    3284             integer*4 dimension(3,2600) :: iybdat
    3285             integer*4 dimension(2600) :: ixmsat
    3286             real*8 :: ehm
    3287             real*8 dimension(18) :: atpl
    3288             real*8 dimension(18) :: efel
    3289             real*8 dimension(18) :: emin
    3290             real*8 dimension(18) :: rmin
    3291             real*8 dimension(4,6) :: chb_s
    3292             real*8 dimension(4,6) :: ahb_s
    3293             real*8 dimension(19) :: e0to_s
    3294             real*8 dimension(19) :: sgto_s
    3295             real*8 dimension(19) :: rnto_s
    3296             real*8 :: eps_s
    3297             real*8 dimension(2000,3) :: spoint
     3855            double precision dimension(500) :: pbrt
     3856            double precision dimension(1000) :: vuvrrt
     3857            double precision dimension(1000) :: dvvrrt
     3858            integer dimension(2600) :: ityat
     3859            integer dimension(2600) :: iowat
     3860            integer dimension(2600) :: iyowat
     3861            integer dimension(2600) :: nbdat
     3862            integer dimension(3,2600) :: ibdat
     3863            integer dimension(3,2600) :: iybdat
     3864            integer dimension(2600) :: ixmsat
     3865            double precision :: ehm
     3866            double precision dimension(18) :: atpl
     3867            double precision dimension(18) :: efel
     3868            double precision dimension(18) :: emin
     3869            double precision dimension(18) :: rmin
     3870            double precision dimension(4,6) :: chb_s
     3871            double precision dimension(4,6) :: ahb_s
     3872            double precision dimension(19) :: e0to_s
     3873            double precision dimension(19) :: sgto_s
     3874            double precision dimension(19) :: rnto_s
     3875            double precision :: eps_s
     3876            double precision dimension(2000,3) :: spoint
    32983877            logical dimension(18) :: do_f
    32993878            logical dimension(18) :: ac_f
    … …  
    33033882            character*80 :: varfil
    33043883            character*80 :: rstfil
    3305             integer*4 :: ntlml
    3306             integer*4 dimension(10) :: irsml1
    3307             integer*4 dimension(10) :: irsml2
    3308             integer*4 dimension(10) :: ivrml1
    3309             integer*4 dimension(10) :: nvrml
    3310             integer*4 dimension(10) :: imsml1
    3311             integer*4 dimension(10) :: nmsml
    3312             integer*4 dimension(10) :: iadml1
    3313             integer*4 dimension(10) :: nadml
    3314             integer*4 dimension(3,10) :: ixrfpt
    3315             integer*4 dimension(2600) :: ixatp
    3316             integer*4 :: ireg
    3317             real*8 dimension(100) :: blath
    3318             real*8 dimension(100) :: baath
    3319             real*8 dimension(100) :: toath
    3320             real*8 dimension(100) :: cgath
    3321             integer*4 dimension(100,100) :: iref
    3322             integer*4 :: nci
     3884            integer :: ntlml
     3885            integer dimension(10) :: irsml1
     3886            integer dimension(10) :: irsml2
     3887            integer dimension(10) :: ivrml1
     3888            integer dimension(10) :: nvrml
     3889            integer dimension(10) :: imsml1
     3890            integer dimension(10) :: nmsml
     3891            integer dimension(10) :: iadml1
     3892            integer dimension(10) :: nadml
     3893            integer dimension(3,10) :: ixrfpt
     3894            integer dimension(2600) :: ixatp
     3895            integer :: ireg
     3896            double precision dimension(100) :: blath
     3897            double precision dimension(100) :: baath
     3898            double precision dimension(100) :: toath
     3899            double precision dimension(100) :: cgath
     3900            integer dimension(100,100) :: iref
     3901            integer :: nci
    33233902            logical :: flex
    33243903            logical :: tesgrd
    33253904            logical :: sh2
    33263905            logical :: epsd
    3327             integer*4 :: ientyp
    3328             real*8 :: rgyh
    3329             real*8 :: rgyp
    3330             integer*4 :: idloa
    3331             integer*4 :: idloz
    3332             integer*4 :: idupa
    3333             integer*4 :: idupz
     3906            integer :: ientyp
     3907            double precision :: rgyh
     3908            double precision :: rgyp
     3909            integer :: idloa
     3910            integer :: idloz
     3911            integer :: idupa
     3912            integer :: idupz
    33343913            integer :: myrank
    33353914            integer :: no
    … …  
    33383917            character dimension(100,4) :: nmath
    33393918            character dimension(100,3) :: nmvrh
    3340             integer*4 dimension(100) :: ityath
    3341             integer*4 dimension(100) :: iowath
    3342             integer*4 dimension(100) :: iyowath
    3343             integer*4 dimension(100) :: nbdath
    3344             integer*4 dimension(3,100) :: ibdath
    3345             integer*4 dimension(3,100) :: iybdath
    3346             integer*4 dimension(100) :: ityvrh
    3347             integer*4 dimension(100) :: iclvrh
    3348             integer*4 dimension(100) :: iatvrh
     3919            integer dimension(100) :: ityath
     3920            integer dimension(100) :: iowath
     3921            integer dimension(100) :: iyowath
     3922            integer dimension(100) :: nbdath
     3923            integer dimension(3,100) :: ibdath
     3924            integer dimension(3,100) :: iybdath
     3925            integer dimension(100) :: ityvrh
     3926            integer dimension(100) :: iclvrh
     3927            integer dimension(100) :: iatvrh
    33493928            character dimension(100,4) :: seq
    3350             real*8 dimension(2600) :: rvdw
    3351             real*8 dimension(2600) :: sigma
    3352             real*8 dimension(2600,3) :: gradan
    3353             integer*4 dimension(18,18) :: ihbty
    3354             integer*4 :: npnt
     3929            double precision dimension(2600) :: rvdw
     3930            double precision dimension(2600) :: sigma
     3931            double precision dimension(2600,3) :: gradan
     3932            integer dimension(18,18) :: ihbty
     3933            integer :: npnt
    33553934            character dimension(10,80) :: nmml
    3356             real*8 dimension(18,18) :: cij
    3357             real*8 dimension(18,18) :: aij
    3358             real*8 dimension(18,18) :: a14
    3359             real*8 dimension(18,18) :: chb
    3360             real*8 dimension(18,18) :: ahb
    3361             real*8 dimension(19) :: e0to
    3362             real*8 dimension(19) :: sgto
    3363             real*8 dimension(19) :: rnto
    3364             real*8 dimension(19) :: esnto
    3365             real*8 :: conv
    3366             real*8 :: plt
    3367             real*8 :: slp
    3368             real*8 :: cohb
    3369             integer*4 dimension(100) :: iatrs1
    3370             integer*4 dimension(100) :: iatrs2
    3371             integer*4 dimension(100) :: ixatrs
    3372             integer*4 dimension(100) :: ivrrs1
    3373             integer*4 dimension(100) :: nvrrs
    3374             integer*4 :: ntlrt
    3375             integer*4 :: ntlsu
    3376             integer*4 dimension(500) :: i1vrrt
    3377             integer*4 dimension(500) :: i2vrrt
    3378             integer*4 dimension(4800) :: iprtsu
    3379             integer*4 dimension(800) :: i1rtsu
    3380             integer*4 dimension(800) :: nrtsu
    3381             integer*4 dimension(800) :: i1vrsu
    3382             integer*4 dimension(800) :: i2vrsu
    3383             integer*4 dimension(800) :: ipvrsu
    3384             real*8 dimension(3,10) :: rfpt
    3385             real*8 dimension(6,10) :: gbpr
    3386             real*8 dimension(3,10) :: xrfax
    3387             real*8 dimension(3,10) :: yrfax
    3388             real*8 dimension(3,10) :: zrfax
     3935            double precision dimension(18,18) :: cij
     3936            double precision dimension(18,18) :: aij
     3937            double precision dimension(18,18) :: a14
     3938            double precision dimension(18,18) :: chb
     3939            double precision dimension(18,18) :: ahb
     3940            double precision dimension(19) :: e0to
     3941            double precision dimension(19) :: sgto
     3942            double precision dimension(19) :: rnto
     3943            double precision dimension(19) :: esnto
     3944            double precision :: conv
     3945            double precision :: plt
     3946            double precision :: slp
     3947            double precision :: cohb
     3948            integer dimension(100) :: iatrs1
     3949            integer dimension(100) :: iatrs2
     3950            integer dimension(100) :: ixatrs
     3951            integer dimension(100) :: ivrrs1
     3952            integer dimension(100) :: nvrrs
     3953            integer :: ntlrt
     3954            integer :: ntlsu
     3955            integer dimension(500) :: i1vrrt
     3956            integer dimension(500) :: i2vrrt
     3957            integer dimension(4800) :: iprtsu
     3958            integer dimension(800) :: i1rtsu
     3959            integer dimension(800) :: nrtsu
     3960            integer dimension(800) :: i1vrsu
     3961            integer dimension(800) :: i2vrsu
     3962            integer dimension(800) :: ipvrsu
     3963            double precision dimension(3,10) :: rfpt
     3964            double precision dimension(6,10) :: gbpr
     3965            double precision dimension(3,10) :: xrfax
     3966            double precision dimension(3,10) :: yrfax
     3967            double precision dimension(3,10) :: zrfax
    33893968            logical dimension(800) :: fxvr
    3390             real*8 :: eyel
    3391             real*8 :: eyvw
    3392             real*8 :: eyhb
    3393             real*8 :: eyvr
    3394             real*8 :: eysm
    3395             real*8 :: eysl
    3396             real*8 :: eyrg
    3397             real*8 :: eyslh
    3398             real*8 :: eyslp
    3399             real*8 :: eyab
    3400             real*8 :: eysmi
    3401             real*8 :: eyhbi
    3402             real*8 :: eyeli
    3403             real*8 :: eyvwi
    3404             real*8 dimension(800) :: gdeyvr
    3405             real*8 dimension(800) :: gdeyrg
    3406             real*8 dimension(800) :: gdeysl
    3407             real*8 dimension(60) :: gdeygb
    3408             real*8 :: wtey
    3409             real*8 :: wtrg
    3410             integer*4 dimension(800) :: iatvr
    3411             integer*4 dimension(800) :: ityvr
    3412             integer*4 dimension(800) :: iclvr
    3413             integer*4 dimension(800) :: iorvr
    3414             integer*4 dimension(800) :: imsvr1
    3415             integer*4 dimension(800) :: imsvr2
    3416             integer*4 dimension(2400) :: latms1
    3417             integer*4 dimension(2400) :: latms2
    3418             integer*4 dimension(800) :: iadvr1
    3419             integer*4 dimension(800) :: iadvr2
    3420             integer*4 dimension(800) :: ladvr
    3421             integer*4 dimension(800) :: idvr
     3969            double precision :: eyel
     3970            double precision :: eyvw
     3971            double precision :: eyhb
     3972            double precision :: eyvr
     3973            double precision :: eysm
     3974            double precision :: eysl
     3975            double precision :: eyrg
     3976            double precision :: eyslh
     3977            double precision :: eyslp
     3978            double precision :: eyab
     3979            double precision :: eysmi
     3980            double precision :: eyhbi
     3981            double precision :: eyeli
     3982            double precision :: eyvwi
     3983            double precision dimension(800) :: gdeyvr
     3984            double precision dimension(800) :: gdeyrg
     3985            double precision dimension(800) :: gdeysl
     3986            double precision dimension(60) :: gdeygb
     3987            double precision :: wtey
     3988            double precision :: wtrg
     3989            integer dimension(800) :: iatvr
     3990            integer dimension(800) :: ityvr
     3991            integer dimension(800) :: iclvr
     3992            integer dimension(800) :: iorvr
     3993            integer dimension(800) :: imsvr1
     3994            integer dimension(800) :: imsvr2
     3995            integer dimension(2400) :: latms1
     3996            integer dimension(2400) :: latms2
     3997            integer dimension(800) :: iadvr1
     3998            integer dimension(800) :: iadvr2
     3999            integer dimension(800) :: ladvr
     4000            integer dimension(800) :: idvr
    34224001            integer :: enysolct
    3423             character dimension(3,800) :: nmvr
    3424             real*8 :: boxsize
     4002            character dimension(800,3) :: nmvr
     4003            double precision :: boxsize
    34254004            integer :: seed
    3426             character*100 :: zimm
    3427             integer*4 :: itysol
     4005            character*mxrs :: zimm
     4006            integer :: itysol
    34284007            logical :: isolscl
    3429             real*8 dimension(100) :: rsstrg
     4008            double precision dimension(100) :: rsstrg
    34304009            character dimension(35,4) :: rsnmcd
    34314010            character dimension(35) :: onltcd
    … …  
    34334012            integer :: upchswitch
    34344013            double precision :: bgsprob
    3435             integer*4 dimension(10) :: nvwml
    3436             integer*4 dimension(10) :: ivwml1
    3437             integer*4 dimension(10) :: n14ml
    3438             integer*4 dimension(10) :: i14ml1
    3439             integer*4 dimension(2600) :: ivwat1
    3440             integer*4 dimension(2600) :: ivwat2
    3441             integer*4 dimension(2600) :: i14at1
    3442             integer*4 dimension(2600) :: i14at2
    3443             integer*4 dimension(10400) :: lvwat1
    3444             integer*4 dimension(10400) :: lvwat2
    3445             integer*4 dimension(10400) :: l14at
    3446             integer*4 dimension(10400) :: ixatvw
    3447             integer*4 dimension(10400) :: ixat14
    3448             real*8 dimension(800) :: olvlvr
    3449             real*8 dimension(800) :: vlvr
    3450             real*8 dimension(800) :: axvr
    3451             real*8 :: beta
    3452             real*8 dimension(18,18) :: c_f
    3453             real*8 dimension(18,18) :: a_f
    3454             real*8 dimension(4,6) :: chb_f
    3455             real*8 dimension(4,6) :: ahb_f
    3456             real*8 dimension(19) :: e0to_f
    3457             real*8 dimension(19) :: sgto_f
    3458             real*8 dimension(19) :: rnto_f
    3459             real*8 :: plt_f
    3460             real*8 :: slp_f
    3461             real*8 :: cohb_f
     4014            integer dimension(10) :: nvwml
     4015            integer dimension(10) :: ivwml1
     4016            integer dimension(10) :: n14ml
     4017            integer dimension(10) :: i14ml1
     4018            integer dimension(2600) :: ivwat1
     4019            integer dimension(2600) :: ivwat2
     4020            integer dimension(2600) :: i14at1
     4021            integer dimension(2600) :: i14at2
     4022            integer dimension(10400) :: lvwat1
     4023            integer dimension(10400) :: lvwat2
     4024            integer dimension(10400) :: l14at
     4025            integer dimension(10400) :: ixatvw
     4026            integer dimension(10400) :: ixat14
     4027            double precision dimension(800) :: olvlvr
     4028            double precision dimension(800) :: vlvr
     4029            double precision dimension(800) :: axvr
     4030            double precision :: beta
     4031            double precision dimension(18,18) :: c_f
     4032            double precision dimension(18,18) :: a_f
     4033            double precision dimension(4,6) :: chb_f
     4034            double precision dimension(4,6) :: ahb_f
     4035            double precision dimension(19) :: e0to_f
     4036            double precision dimension(19) :: sgto_f
     4037            double precision dimension(19) :: rnto_f
     4038            double precision :: plt_f
     4039            double precision :: slp_f
     4040            double precision :: cohb_f
    34624041            common /v_sol/ vdvol,asa,asap,asah
    34634042            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    35234102            real*8 dimension(10000) :: zrf
    35244103            integer*4 :: isl
    3525             real*8 :: vdvol
    3526             real*8 :: asa
    3527             real*8 :: asap
    3528             real*8 :: asah
    3529             real*8 dimension(2600) :: cgat
    3530             real*8 dimension(2600) :: xbaat
    3531             real*8 dimension(2600) :: ybaat
    3532             real*8 dimension(2600) :: zbaat
    3533             real*8 dimension(2600) :: baat
    3534             real*8 dimension(2600) :: snbaat
    3535             real*8 dimension(2600) :: csbaat
    3536             real*8 dimension(2600) :: xtoat
    3537             real*8 dimension(2600) :: ytoat
    3538             real*8 dimension(2600) :: ztoat
    3539             real*8 dimension(2600) :: toat
    3540             real*8 dimension(2600) :: sntoat
    3541             real*8 dimension(2600) :: cstoat
    3542             real*8 dimension(2600) :: blat
    3543             real*8 dimension(2602) :: xat
    3544             real*8 dimension(2602) :: yat
    3545             real*8 dimension(2602) :: zat
    3546             integer*4 dimension(100,100) :: ijcont
    3547             integer*4 dimension(100) :: ind_alf
     4104            double precision :: vdvol
     4105            double precision :: asa
     4106            double precision :: asap
     4107            double precision :: asah
     4108            integer dimension(2600) :: cgat
     4109            double precision dimension(2600) :: xbaat
     4110            double precision dimension(2600) :: ybaat
     4111            double precision dimension(2600) :: zbaat
     4112            double precision dimension(2600) :: baat
     4113            double precision dimension(2600) :: snbaat
     4114            double precision dimension(2600) :: csbaat
     4115            double precision dimension(2600) :: xtoat
     4116            double precision dimension(2600) :: ytoat
     4117            double precision dimension(2600) :: ztoat
     4118            double precision dimension(2600) :: toat
     4119            double precision dimension(2600) :: sntoat
     4120            double precision dimension(2600) :: cstoat
     4121            double precision dimension(2600) :: blat
     4122            double precision dimension(2602) :: xat
     4123            double precision dimension(2602) :: yat
     4124            double precision dimension(2602) :: zat
     4125            integer dimension(100,100) :: ijcont
     4126            integer dimension(100) :: ind_alf
    35484127            logical dimension(18) :: do_s
    35494128            logical dimension(18) :: ac_s
    35504129            character dimension(500,4) :: nmrt
    35514130            character dimension(1000,3) :: nmvrrt
    3552             integer*4 :: nvr
    3553             real*8 dimension(9,18) :: coef_sl
    3554             real*8 dimension(9,18) :: rad_vdw
    3555             real*8 dimension(100) :: surfres
    3556             integer*4 :: ntyhb
    3557             integer*4 dimension(100) :: ixtyhb
    3558             integer*4 dimension(100) :: nutyhb
    3559             integer*4 dimension(10,10) :: mmhb
    3560             character dimension(4,2600) :: nmat
    3561             integer*4 :: lunlib
    3562             integer*4 :: lunseq
    3563             integer*4 :: lunchg
    3564             integer*4 :: lunvar
    3565             integer*4 :: lunrst
     4131            integer :: nvr
     4132            double precision dimension(9,18) :: coef_sl
     4133            double precision dimension(9,18) :: rad_vdw
     4134            double precision dimension(100) :: surfres
     4135            integer :: ntyhb
     4136            integer dimension(100) :: ixtyhb
     4137            integer dimension(100) :: nutyhb
     4138            integer dimension(10,10) :: mmhb
     4139            character dimension(2600,4) :: nmat
     4140            integer :: lunlib
     4141            integer :: lunseq
     4142            integer :: lunchg
     4143            integer :: lunvar
     4144            integer :: lunrst
    35664145            logical dimension(800) :: isrfvr
    3567             real*8 dimension(500) :: pbrt
    3568             real*8 dimension(1000) :: vuvrrt
    3569             real*8 dimension(1000) :: dvvrrt
    3570             integer*4 dimension(2600) :: ityat
    3571             integer*4 dimension(2600) :: iowat
    3572             integer*4 dimension(2600) :: iyowat
    3573             integer*4 dimension(2600) :: nbdat
    3574             integer*4 dimension(3,2600) :: ibdat
    3575             integer*4 dimension(3,2600) :: iybdat
    3576             integer*4 dimension(2600) :: ixmsat
    3577             real*8 :: ehm
    3578             real*8 dimension(18) :: atpl
    3579             real*8 dimension(18) :: efel
    3580             real*8 dimension(18) :: emin
    3581             real*8 dimension(18) :: rmin
    3582             real*8 dimension(4,6) :: chb_s
    3583             real*8 dimension(4,6) :: ahb_s
    3584             real*8 dimension(19) :: e0to_s
    3585             real*8 dimension(19) :: sgto_s
    3586             real*8 dimension(19) :: rnto_s
    3587             real*8 :: eps_s
    3588             real*8 dimension(2000,3) :: spoint
     4146            double precision dimension(500) :: pbrt
     4147            double precision dimension(1000) :: vuvrrt
     4148            double precision dimension(1000) :: dvvrrt
     4149            integer dimension(2600) :: ityat
     4150            integer dimension(2600) :: iowat
     4151            integer dimension(2600) :: iyowat
     4152            integer dimension(2600) :: nbdat
     4153            integer dimension(3,2600) :: ibdat
     4154            integer dimension(3,2600) :: iybdat
     4155            integer dimension(2600) :: ixmsat
     4156            double precision :: ehm
     4157            double precision dimension(18) :: atpl
     4158            double precision dimension(18) :: efel
     4159            double precision dimension(18) :: emin
     4160            double precision dimension(18) :: rmin
     4161            double precision dimension(4,6) :: chb_s
     4162            double precision dimension(4,6) :: ahb_s
     4163            double precision dimension(19) :: e0to_s
     4164            double precision dimension(19) :: sgto_s
     4165            double precision dimension(19) :: rnto_s
     4166            double precision :: eps_s
     4167            double precision dimension(2000,3) :: spoint
    35894168            logical dimension(18) :: do_f
    35904169            logical dimension(18) :: ac_f
    … …  
    35944173            character*80 :: varfil
    35954174            character*80 :: rstfil
    3596             integer*4 :: ntlml
    3597             integer*4 dimension(10) :: irsml1
    3598             integer*4 dimension(10) :: irsml2
    3599             integer*4 dimension(10) :: ivrml1
    3600             integer*4 dimension(10) :: nvrml
    3601             integer*4 dimension(10) :: imsml1
    3602             integer*4 dimension(10) :: nmsml
    3603             integer*4 dimension(10) :: iadml1
    3604             integer*4 dimension(10) :: nadml
    3605             integer*4 dimension(3,10) :: ixrfpt
    3606             integer*4 dimension(2600) :: ixatp
    3607             integer*4 :: ireg
    3608             real*8 dimension(100) :: blath
    3609             real*8 dimension(100) :: baath
    3610             real*8 dimension(100) :: toath
    3611             real*8 dimension(100) :: cgath
    3612             integer*4 dimension(100,100) :: iref
    3613             integer*4 :: nci
     4175            integer :: ntlml
     4176            integer dimension(10) :: irsml1
     4177            integer dimension(10) :: irsml2
     4178            integer dimension(10) :: ivrml1
     4179            integer dimension(10) :: nvrml
     4180            integer dimension(10) :: imsml1
     4181            integer dimension(10) :: nmsml
     4182            integer dimension(10) :: iadml1
     4183            integer dimension(10) :: nadml
     4184            integer dimension(3,10) :: ixrfpt
     4185            integer dimension(2600) :: ixatp
     4186            integer :: ireg
     4187            double precision dimension(100) :: blath
     4188            double precision dimension(100) :: baath
     4189            double precision dimension(100) :: toath
     4190            double precision dimension(100) :: cgath
     4191            integer dimension(100,100) :: iref
     4192            integer :: nci
    36144193            logical :: flex
    36154194            logical :: tesgrd
    36164195            logical :: sh2
    36174196            logical :: epsd
    3618             integer*4 :: ientyp
    3619             real*8 :: rgyh
    3620             real*8 :: rgyp
    3621             integer*4 :: idloa
    3622             integer*4 :: idloz
    3623             integer*4 :: idupa
    3624             integer*4 :: idupz
     4197            integer :: ientyp
     4198            double precision :: rgyh
     4199            double precision :: rgyp
     4200            integer :: idloa
     4201            integer :: idloz
     4202            integer :: idupa
     4203            integer :: idupz
    36254204            integer :: myrank
    36264205            integer :: no
    … …  
    36294208            character dimension(100,4) :: nmath
    36304209            character dimension(100,3) :: nmvrh
    3631             integer*4 dimension(100) :: ityath
    3632             integer*4 dimension(100) :: iowath
    3633             integer*4 dimension(100) :: iyowath
    3634             integer*4 dimension(100) :: nbdath
    3635             integer*4 dimension(3,100) :: ibdath
    3636             integer*4 dimension(3,100) :: iybdath
    3637             integer*4 dimension(100) :: ityvrh
    3638             integer*4 dimension(100) :: iclvrh
    3639             integer*4 dimension(100) :: iatvrh
     4210            integer dimension(100) :: ityath
     4211            integer dimension(100) :: iowath
     4212            integer dimension(100) :: iyowath
     4213            integer dimension(100) :: nbdath
     4214            integer dimension(3,100) :: ibdath
     4215            integer dimension(3,100) :: iybdath
     4216            integer dimension(100) :: ityvrh
     4217            integer dimension(100) :: iclvrh
     4218            integer dimension(100) :: iatvrh
    36404219            character dimension(100,4) :: seq
    36414220            integer*4 :: nchp
    … …  
    36464225            integer*4 :: natp
    36474226            integer*4 dimension(10000) :: noatp
    3648             real*8 dimension(2600) :: rvdw
    3649             real*8 dimension(2600) :: sigma
    3650             real*8 dimension(2600,3) :: gradan
    3651             integer*4 dimension(18,18) :: ihbty
     4227            double precision dimension(2600) :: rvdw
     4228            double precision dimension(2600) :: sigma
     4229            double precision dimension(2600,3) :: gradan
     4230            integer dimension(18,18) :: ihbty
    36524231            character dimension(100) :: chnp
    36534232            character dimension(1000,3) :: rsnmp
    36544233            character dimension(1000,5) :: rsidp
    36554234            character dimension(10000,4) :: atnmp
    3656             integer*4 :: npnt
     4235            integer :: npnt
    36574236            character dimension(10,80) :: nmml
    3658             real*8 dimension(18,18) :: cij
    3659             real*8 dimension(18,18) :: aij
    3660             real*8 dimension(18,18) :: a14
    3661             real*8 dimension(18,18) :: chb
    3662             real*8 dimension(18,18) :: ahb
    3663             real*8 dimension(19) :: e0to
    3664             real*8 dimension(19) :: sgto
    3665             real*8 dimension(19) :: rnto
    3666             real*8 dimension(19) :: esnto
    3667             real*8 :: conv
    3668             real*8 :: plt
    3669             real*8 :: slp
    3670             real*8 :: cohb
     4237            double precision dimension(18,18) :: cij
     4238            double precision dimension(18,18) :: aij
     4239            double precision dimension(18,18) :: a14
     4240            double precision dimension(18,18) :: chb
     4241            double precision dimension(18,18) :: ahb
     4242            double precision dimension(19) :: e0to
     4243            double precision dimension(19) :: sgto
     4244            double precision dimension(19) :: rnto
     4245            double precision dimension(19) :: esnto
     4246            double precision :: conv
     4247            double precision :: plt
     4248            double precision :: slp
     4249            double precision :: cohb
    36714250            real*8 dimension(10000) :: xatp
    36724251            real*8 dimension(10000) :: yatp
    36734252            real*8 dimension(10000) :: zatp
    3674             integer*4 dimension(100) :: iatrs1
    3675             integer*4 dimension(100) :: iatrs2
    3676             integer*4 dimension(100) :: ixatrs
    3677             integer*4 dimension(100) :: ivrrs1
    3678             integer*4 dimension(100) :: nvrrs
    3679             integer*4 :: ntlrt
    3680             integer*4 :: ntlsu
    3681             integer*4 dimension(500) :: i1vrrt
    3682             integer*4 dimension(500) :: i2vrrt
    3683             integer*4 dimension(4800) :: iprtsu
    3684             integer*4 dimension(800) :: i1rtsu
    3685             integer*4 dimension(800) :: nrtsu
    3686             integer*4 dimension(800) :: i1vrsu
    3687             integer*4 dimension(800) :: i2vrsu
    3688             integer*4 dimension(800) :: ipvrsu
    3689             real*8 dimension(3,10) :: rfpt
    3690             real*8 dimension(6,10) :: gbpr
    3691             real*8 dimension(3,10) :: xrfax
    3692             real*8 dimension(3,10) :: yrfax
    3693             real*8 dimension(3,10) :: zrfax
     4253            integer dimension(100) :: iatrs1
     4254            integer dimension(100) :: iatrs2
     4255            integer dimension(100) :: ixatrs
     4256            integer dimension(100) :: ivrrs1
     4257            integer dimension(100) :: nvrrs
     4258            integer :: ntlrt
     4259            integer :: ntlsu
     4260            integer dimension(500) :: i1vrrt
     4261            integer dimension(500) :: i2vrrt
     4262            integer dimension(4800) :: iprtsu
     4263            integer dimension(800) :: i1rtsu
     4264            integer dimension(800) :: nrtsu
     4265            integer dimension(800) :: i1vrsu
     4266            integer dimension(800) :: i2vrsu
     4267            integer dimension(800) :: ipvrsu
     4268            double precision dimension(3,10) :: rfpt
     4269            double precision dimension(6,10) :: gbpr
     4270            double precision dimension(3,10) :: xrfax
     4271            double precision dimension(3,10) :: yrfax
     4272            double precision dimension(3,10) :: zrfax
    36944273            logical dimension(800) :: fxvr
    3695             real*8 :: eyel
    3696             real*8 :: eyvw
    3697             real*8 :: eyhb
    3698             real*8 :: eyvr
    3699             real*8 :: eysm
    3700             real*8 :: eysl
    3701             real*8 :: eyrg
    3702             real*8 :: eyslh
    3703             real*8 :: eyslp
    3704             real*8 :: eyab
    3705             real*8 :: eysmi
    3706             real*8 :: eyhbi
    3707             real*8 :: eyeli
    3708             real*8 :: eyvwi
    3709             real*8 dimension(800) :: gdeyvr
    3710             real*8 dimension(800) :: gdeyrg
    3711             real*8 dimension(800) :: gdeysl
    3712             real*8 dimension(60) :: gdeygb
    3713             real*8 :: wtey
    3714             real*8 :: wtrg
    3715             integer*4 dimension(800) :: iatvr
    3716             integer*4 dimension(800) :: ityvr
    3717             integer*4 dimension(800) :: iclvr
    3718             integer*4 dimension(800) :: iorvr
    3719             integer*4 dimension(800) :: imsvr1
    3720             integer*4 dimension(800) :: imsvr2
    3721             integer*4 dimension(2400) :: latms1
    3722             integer*4 dimension(2400) :: latms2
    3723             integer*4 dimension(800) :: iadvr1
    3724             integer*4 dimension(800) :: iadvr2
    3725             integer*4 dimension(800) :: ladvr
    3726             integer*4 dimension(800) :: idvr
     4274            double precision :: eyel
     4275            double precision :: eyvw
     4276            double precision :: eyhb
     4277            double precision :: eyvr
     4278            double precision :: eysm
     4279            double precision :: eysl
     4280            double precision :: eyrg
     4281            double precision :: eyslh
     4282            double precision :: eyslp
     4283            double precision :: eyab
     4284            double precision :: eysmi
     4285            double precision :: eyhbi
     4286            double precision :: eyeli
     4287            double precision :: eyvwi
     4288            double precision dimension(800) :: gdeyvr
     4289            double precision dimension(800) :: gdeyrg
     4290            double precision dimension(800) :: gdeysl
     4291            double precision dimension(60) :: gdeygb
     4292            double precision :: wtey
     4293            double precision :: wtrg
     4294            integer dimension(800) :: iatvr
     4295            integer dimension(800) :: ityvr
     4296            integer dimension(800) :: iclvr
     4297            integer dimension(800) :: iorvr
     4298            integer dimension(800) :: imsvr1
     4299            integer dimension(800) :: imsvr2
     4300            integer dimension(2400) :: latms1
     4301            integer dimension(2400) :: latms2
     4302            integer dimension(800) :: iadvr1
     4303            integer dimension(800) :: iadvr2
     4304            integer dimension(800) :: ladvr
     4305            integer dimension(800) :: idvr
    37274306            integer :: enysolct
    3728             character dimension(3,800) :: nmvr
    3729             real*8 :: boxsize
     4307            character dimension(800,3) :: nmvr
     4308            double precision :: boxsize
    37304309            integer :: seed
    3731             character*100 :: zimm
    3732             integer*4 :: itysol
     4310            character*mxrs :: zimm
     4311            integer :: itysol
    37334312            logical :: isolscl
    3734             real*8 dimension(100) :: rsstrg
     4313            double precision dimension(100) :: rsstrg
    37354314            character dimension(35,4) :: rsnmcd
    37364315            character dimension(35) :: onltcd
    … …  
    37384317            integer :: upchswitch
    37394318            double precision :: bgsprob
    3740             integer*4 dimension(10) :: nvwml
    3741             integer*4 dimension(10) :: ivwml1
    3742             integer*4 dimension(10) :: n14ml
    3743             integer*4 dimension(10) :: i14ml1
    3744             integer*4 dimension(2600) :: ivwat1
    3745             integer*4 dimension(2600) :: ivwat2
    3746             integer*4 dimension(2600) :: i14at1
    3747             integer*4 dimension(2600) :: i14at2
    3748             integer*4 dimension(10400) :: lvwat1
    3749             integer*4 dimension(10400) :: lvwat2
    3750             integer*4 dimension(10400) :: l14at
    3751             integer*4 dimension(10400) :: ixatvw
    3752             integer*4 dimension(10400) :: ixat14
    3753             real*8 dimension(800) :: olvlvr
    3754             real*8 dimension(800) :: vlvr
    3755             real*8 dimension(800) :: axvr
    3756             real*8 :: beta
    3757             real*8 dimension(18,18) :: c_f
    3758             real*8 dimension(18,18) :: a_f
    3759             real*8 dimension(4,6) :: chb_f
    3760             real*8 dimension(4,6) :: ahb_f
    3761             real*8 dimension(19) :: e0to_f
    3762             real*8 dimension(19) :: sgto_f
    3763             real*8 dimension(19) :: rnto_f
    3764             real*8 :: plt_f
    3765             real*8 :: slp_f
    3766             real*8 :: cohb_f
     4319            integer dimension(10) :: nvwml
     4320            integer dimension(10) :: ivwml1
     4321            integer dimension(10) :: n14ml
     4322            integer dimension(10) :: i14ml1
     4323            integer dimension(2600) :: ivwat1
     4324            integer dimension(2600) :: ivwat2
     4325            integer dimension(2600) :: i14at1
     4326            integer dimension(2600) :: i14at2
     4327            integer dimension(10400) :: lvwat1
     4328            integer dimension(10400) :: lvwat2
     4329            integer dimension(10400) :: l14at
     4330            integer dimension(10400) :: ixatvw
     4331            integer dimension(10400) :: ixat14
     4332            double precision dimension(800) :: olvlvr
     4333            double precision dimension(800) :: vlvr
     4334            double precision dimension(800) :: axvr
     4335            double precision :: beta
     4336            double precision dimension(18,18) :: c_f
     4337            double precision dimension(18,18) :: a_f
     4338            double precision dimension(4,6) :: chb_f
     4339            double precision dimension(4,6) :: ahb_f
     4340            double precision dimension(19) :: e0to_f
     4341            double precision dimension(19) :: sgto_f
     4342            double precision dimension(19) :: rnto_f
     4343            double precision :: plt_f
     4344            double precision :: slp_f
     4345            double precision :: cohb_f
    37674346            real*8 :: rmsdfun
    37684347            common /v_sol/ vdvol,asa,asap,asah
    … …  
    38254404        subroutine init_energy(libdir) ! in :smmp:init_energy.f
    38264405            character*(*) :: libdir
    3827             real*8 :: vdvol
    3828             real*8 :: asa
    3829             real*8 :: asap
    3830             real*8 :: asah
    3831             real*8 dimension(2600) :: cgat
    3832             real*8 dimension(2600) :: xbaat
    3833             real*8 dimension(2600) :: ybaat
    3834             real*8 dimension(2600) :: zbaat
    3835             real*8 dimension(2600) :: baat
    3836             real*8 dimension(2600) :: snbaat
    3837             real*8 dimension(2600) :: csbaat
    3838             real*8 dimension(2600) :: xtoat
    3839             real*8 dimension(2600) :: ytoat
    3840             real*8 dimension(2600) :: ztoat
    3841             real*8 dimension(2600) :: toat
    3842             real*8 dimension(2600) :: sntoat
    3843             real*8 dimension(2600) :: cstoat
    3844             real*8 dimension(2600) :: blat
    3845             real*8 dimension(2602) :: xat
    3846             real*8 dimension(2602) :: yat
    3847             real*8 dimension(2602) :: zat
    3848             integer*4 dimension(100,100) :: ijcont
    3849             integer*4 dimension(100) :: ind_alf
     4406            double precision :: vdvol
     4407            double precision :: asa
     4408            double precision :: asap
     4409            double precision :: asah
     4410            integer dimension(2600) :: cgat
     4411            double precision dimension(2600) :: xbaat
     4412            double precision dimension(2600) :: ybaat
     4413            double precision dimension(2600) :: zbaat
     4414            double precision dimension(2600) :: baat
     4415            double precision dimension(2600) :: snbaat
     4416            double precision dimension(2600) :: csbaat
     4417            double precision dimension(2600) :: xtoat
     4418            double precision dimension(2600) :: ytoat
     4419            double precision dimension(2600) :: ztoat
     4420            double precision dimension(2600) :: toat
     4421            double precision dimension(2600) :: sntoat
     4422            double precision dimension(2600) :: cstoat
     4423            double precision dimension(2600) :: blat
     4424            double precision dimension(2602) :: xat
     4425            double precision dimension(2602) :: yat
     4426            double precision dimension(2602) :: zat
     4427            integer dimension(100,100) :: ijcont
     4428            integer dimension(100) :: ind_alf
    38504429            logical dimension(18) :: do_s
    38514430            logical dimension(18) :: ac_s
    38524431            character dimension(500,4) :: nmrt
    38534432            character dimension(1000,3) :: nmvrrt
    3854             integer*4 :: nvr
    3855             real*8 dimension(9,18) :: coef_sl
    3856             real*8 dimension(9,18) :: rad_vdw
    3857             real*8 dimension(100) :: surfres
    3858             integer*4 :: ntyhb
    3859             integer*4 dimension(100) :: ixtyhb
    3860             integer*4 dimension(100) :: nutyhb
    3861             integer*4 dimension(10,10) :: mmhb
    3862             character dimension(4,2600) :: nmat
    3863             integer*4 :: lunlib
    3864             integer*4 :: lunseq
    3865             integer*4 :: lunchg
    3866             integer*4 :: lunvar
    3867             integer*4 :: lunrst
     4433            integer :: nvr
     4434            double precision dimension(9,18) :: coef_sl
     4435            double precision dimension(9,18) :: rad_vdw
     4436            double precision dimension(100) :: surfres
     4437            integer :: ntyhb
     4438            integer dimension(100) :: ixtyhb
     4439            integer dimension(100) :: nutyhb
     4440            integer dimension(10,10) :: mmhb
     4441            character dimension(2600,4) :: nmat
     4442            integer :: lunlib
     4443            integer :: lunseq
     4444            integer :: lunchg
     4445            integer :: lunvar
     4446            integer :: lunrst
    38684447            logical dimension(800) :: isrfvr
    3869             real*8 dimension(500) :: pbrt
    3870             real*8 dimension(1000) :: vuvrrt
    3871             real*8 dimension(1000) :: dvvrrt
    3872             integer*4 dimension(2600) :: ityat
    3873             integer*4 dimension(2600) :: iowat
    3874             integer*4 dimension(2600) :: iyowat
    3875             integer*4 dimension(2600) :: nbdat
    3876             integer*4 dimension(3,2600) :: ibdat
    3877             integer*4 dimension(3,2600) :: iybdat
    3878             integer*4 dimension(2600) :: ixmsat
    3879             real*8 :: ehm
    3880             real*8 dimension(18) :: atpl
    3881             real*8 dimension(18) :: efel
    3882             real*8 dimension(18) :: emin
    3883             real*8 dimension(18) :: rmin
    3884             real*8 dimension(4,6) :: chb_s
    3885             real*8 dimension(4,6) :: ahb_s
    3886             real*8 dimension(19) :: e0to_s
    3887             real*8 dimension(19) :: sgto_s
    3888             real*8 dimension(19) :: rnto_s
    3889             real*8 :: eps_s
    3890             real*8 dimension(2000,3) :: spoint
     4448            double precision dimension(500) :: pbrt
     4449            double precision dimension(1000) :: vuvrrt
     4450            double precision dimension(1000) :: dvvrrt
     4451            integer dimension(2600) :: ityat
     4452            integer dimension(2600) :: iowat
     4453            integer dimension(2600) :: iyowat
     4454            integer dimension(2600) :: nbdat
     4455            integer dimension(3,2600) :: ibdat
     4456            integer dimension(3,2600) :: iybdat
     4457            integer dimension(2600) :: ixmsat
     4458            double precision :: ehm
     4459            double precision dimension(18) :: atpl
     4460            double precision dimension(18) :: efel
     4461            double precision dimension(18) :: emin
     4462            double precision dimension(18) :: rmin
     4463            double precision dimension(4,6) :: chb_s
     4464            double precision dimension(4,6) :: ahb_s
     4465            double precision dimension(19) :: e0to_s
     4466            double precision dimension(19) :: sgto_s
     4467            double precision dimension(19) :: rnto_s
     4468            double precision :: eps_s
     4469            double precision dimension(2000,3) :: spoint
    38914470            logical dimension(18) :: do_f
    38924471            logical dimension(18) :: ac_f
    … …  
    38964475            character*80 :: varfil
    38974476            character*80 :: rstfil
    3898             integer*4 :: ntlml
    3899             integer*4 dimension(10) :: irsml1
    3900             integer*4 dimension(10) :: irsml2
    3901             integer*4 dimension(10) :: ivrml1
    3902             integer*4 dimension(10) :: nvrml
    3903             integer*4 dimension(10) :: imsml1
    3904             integer*4 dimension(10) :: nmsml
    3905             integer*4 dimension(10) :: iadml1
    3906             integer*4 dimension(10) :: nadml
    3907             integer*4 dimension(3,10) :: ixrfpt
    3908             integer*4 dimension(2600) :: ixatp
    3909             integer*4 :: ireg
    3910             real*8 dimension(100) :: blath
    3911             real*8 dimension(100) :: baath
    3912             real*8 dimension(100) :: toath
    3913             real*8 dimension(100) :: cgath
    3914             integer*4 dimension(100,100) :: iref
    3915             integer*4 :: nci
     4477            integer :: ntlml
     4478            integer dimension(10) :: irsml1
     4479            integer dimension(10) :: irsml2
     4480            integer dimension(10) :: ivrml1
     4481            integer dimension(10) :: nvrml
     4482            integer dimension(10) :: imsml1
     4483            integer dimension(10) :: nmsml
     4484            integer dimension(10) :: iadml1
     4485            integer dimension(10) :: nadml
     4486            integer dimension(3,10) :: ixrfpt
     4487            integer dimension(2600) :: ixatp
     4488            integer :: ireg
     4489            double precision dimension(100) :: blath
     4490            double precision dimension(100) :: baath
     4491            double precision dimension(100) :: toath
     4492            double precision dimension(100) :: cgath
     4493            integer dimension(100,100) :: iref
     4494            integer :: nci
    39164495            logical :: flex
    39174496            logical :: tesgrd
    39184497            logical :: sh2
    39194498            logical :: epsd
    3920             integer*4 :: ientyp
    3921             real*8 :: rgyh
    3922             real*8 :: rgyp
    3923             integer*4 :: idloa
    3924             integer*4 :: idloz
    3925             integer*4 :: idupa
    3926             integer*4 :: idupz
     4499            integer :: ientyp
     4500            double precision :: rgyh
     4501            double precision :: rgyp
     4502            integer :: idloa
     4503            integer :: idloz
     4504            integer :: idupa
     4505            integer :: idupz
    39274506            integer :: myrank
    39284507            integer :: no
    … …  
    39314510            character dimension(100,4) :: nmath
    39324511            character dimension(100,3) :: nmvrh
    3933             integer*4 dimension(100) :: ityath
    3934             integer*4 dimension(100) :: iowath
    3935             integer*4 dimension(100) :: iyowath
    3936             integer*4 dimension(100) :: nbdath
    3937             integer*4 dimension(3,100) :: ibdath
    3938             integer*4 dimension(3,100) :: iybdath
    3939             integer*4 dimension(100) :: ityvrh
    3940             integer*4 dimension(100) :: iclvrh
    3941             integer*4 dimension(100) :: iatvrh
     4512            integer dimension(100) :: ityath
     4513            integer dimension(100) :: iowath
     4514            integer dimension(100) :: iyowath
     4515            integer dimension(100) :: nbdath
     4516            integer dimension(3,100) :: ibdath
     4517            integer dimension(3,100) :: iybdath
     4518            integer dimension(100) :: ityvrh
     4519            integer dimension(100) :: iclvrh
     4520            integer dimension(100) :: iatvrh
    39424521            character dimension(100,4) :: seq
    3943             real*8 dimension(2600) :: rvdw
    3944             real*8 dimension(2600) :: sigma
    3945             real*8 dimension(2600,3) :: gradan
    3946             integer*4 dimension(18,18) :: ihbty
    3947             integer*4 :: npnt
     4522            double precision dimension(2600) :: rvdw
     4523            double precision dimension(2600) :: sigma
     4524            double precision dimension(2600,3) :: gradan
     4525            integer dimension(18,18) :: ihbty
     4526            integer :: npnt
    39484527            character dimension(10,80) :: nmml
    3949             real*8 dimension(18,18) :: cij
    3950             real*8 dimension(18,18) :: aij
    3951             real*8 dimension(18,18) :: a14
    3952             real*8 dimension(18,18) :: chb
    3953             real*8 dimension(18,18) :: ahb
    3954             real*8 dimension(19) :: e0to
    3955             real*8 dimension(19) :: sgto
    3956             real*8 dimension(19) :: rnto
    3957             real*8 dimension(19) :: esnto
    3958             real*8 :: conv
    3959             real*8 :: plt
    3960             real*8 :: slp
    3961             real*8 :: cohb
    3962             integer*4 dimension(100) :: iatrs1
    3963             integer*4 dimension(100) :: iatrs2
    3964             integer*4 dimension(100) :: ixatrs
    3965             integer*4 dimension(100) :: ivrrs1
    3966             integer*4 dimension(100) :: nvrrs
    3967             integer*4 :: ntlrt
    3968             integer*4 :: ntlsu
    3969             integer*4 dimension(500) :: i1vrrt
    3970             integer*4 dimension(500) :: i2vrrt
    3971             integer*4 dimension(4800) :: iprtsu
    3972             integer*4 dimension(800) :: i1rtsu
    3973             integer*4 dimension(800) :: nrtsu
    3974             integer*4 dimension(800) :: i1vrsu
    3975             integer*4 dimension(800) :: i2vrsu
    3976             integer*4 dimension(800) :: ipvrsu
    3977             real*8 dimension(3,10) :: rfpt
    3978             real*8 dimension(6,10) :: gbpr
    3979             real*8 dimension(3,10) :: xrfax
    3980             real*8 dimension(3,10) :: yrfax
    3981             real*8 dimension(3,10) :: zrfax
     4528            double precision dimension(18,18) :: cij
     4529            double precision dimension(18,18) :: aij
     4530            double precision dimension(18,18) :: a14
     4531            double precision dimension(18,18) :: chb
     4532            double precision dimension(18,18) :: ahb
     4533            double precision dimension(19) :: e0to
     4534            double precision dimension(19) :: sgto
     4535            double precision dimension(19) :: rnto
     4536            double precision dimension(19) :: esnto
     4537            double precision :: conv
     4538            double precision :: plt
     4539            double precision :: slp
     4540            double precision :: cohb
     4541            integer dimension(100) :: iatrs1
     4542            integer dimension(100) :: iatrs2
     4543            integer dimension(100) :: ixatrs
     4544            integer dimension(100) :: ivrrs1
     4545            integer dimension(100) :: nvrrs
     4546            integer :: ntlrt
     4547            integer :: ntlsu
     4548            integer dimension(500) :: i1vrrt
     4549            integer dimension(500) :: i2vrrt
     4550            integer dimension(4800) :: iprtsu
     4551            integer dimension(800) :: i1rtsu
     4552            integer dimension(800) :: nrtsu
     4553            integer dimension(800) :: i1vrsu
     4554            integer dimension(800) :: i2vrsu
     4555            integer dimension(800) :: ipvrsu
     4556            double precision dimension(3,10) :: rfpt
     4557            double precision dimension(6,10) :: gbpr
     4558            double precision dimension(3,10) :: xrfax
     4559            double precision dimension(3,10) :: yrfax
     4560            double precision dimension(3,10) :: zrfax
    39824561            logical dimension(800) :: fxvr
    3983             real*8 :: eyel
    3984             real*8 :: eyvw
    3985             real*8 :: eyhb
    3986             real*8 :: eyvr
    3987             real*8 :: eysm
    3988             real*8 :: eysl
    3989             real*8 :: eyrg
    3990             real*8 :: eyslh
    3991             real*8 :: eyslp
    3992             real*8 :: eyab
    3993             real*8 :: eysmi
    3994             real*8 :: eyhbi
    3995             real*8 :: eyeli
    3996             real*8 :: eyvwi
    3997             real*8 dimension(800) :: gdeyvr
    3998             real*8 dimension(800) :: gdeyrg
    3999             real*8 dimension(800) :: gdeysl
    4000             real*8 dimension(60) :: gdeygb
    4001             real*8 :: wtey
    4002             real*8 :: wtrg
    4003             integer*4 dimension(800) :: iatvr
    4004             integer*4 dimension(800) :: ityvr
    4005             integer*4 dimension(800) :: iclvr
    4006             integer*4 dimension(800) :: iorvr
    4007             integer*4 dimension(800) :: imsvr1
    4008             integer*4 dimension(800) :: imsvr2
    4009             integer*4 dimension(2400) :: latms1
    4010             integer*4 dimension(2400) :: latms2
    4011             integer*4 dimension(800) :: iadvr1
    4012             integer*4 dimension(800) :: iadvr2
    4013             integer*4 dimension(800) :: ladvr
    4014             integer*4 dimension(800) :: idvr
     4562            double precision :: eyel
     4563            double precision :: eyvw
     4564            double precision :: eyhb
     4565            double precision :: eyvr
     4566            double precision :: eysm
     4567            double precision :: eysl
     4568            double precision :: eyrg
     4569            double precision :: eyslh
     4570            double precision :: eyslp
     4571            double precision :: eyab
     4572            double precision :: eysmi
     4573            double precision :: eyhbi
     4574            double precision :: eyeli
     4575            double precision :: eyvwi
     4576            double precision dimension(800) :: gdeyvr
     4577            double precision dimension(800) :: gdeyrg
     4578            double precision dimension(800) :: gdeysl
     4579            double precision dimension(60) :: gdeygb
     4580            double precision :: wtey
     4581            double precision :: wtrg
     4582            integer dimension(800) :: iatvr
     4583            integer dimension(800) :: ityvr
     4584            integer dimension(800) :: iclvr
     4585            integer dimension(800) :: iorvr
     4586            integer dimension(800) :: imsvr1
     4587            integer dimension(800) :: imsvr2
     4588            integer dimension(2400) :: latms1
     4589            integer dimension(2400) :: latms2
     4590            integer dimension(800) :: iadvr1
     4591            integer dimension(800) :: iadvr2
     4592            integer dimension(800) :: ladvr
     4593            integer dimension(800) :: idvr
    40154594            integer :: enysolct
    4016             character dimension(3,800) :: nmvr
    4017             real*8 :: boxsize
     4595            character dimension(800,3) :: nmvr
     4596            double precision :: boxsize
    40184597            integer :: seed
    4019             character*100 :: zimm
    4020             integer*4 :: itysol
     4598            character*mxrs :: zimm
     4599            integer :: itysol
    40214600            logical :: isolscl
    4022             real*8 dimension(100) :: rsstrg
     4601            double precision dimension(100) :: rsstrg
    40234602            character dimension(35,4) :: rsnmcd
    40244603            character dimension(35) :: onltcd
    … …  
    40264605            integer :: upchswitch
    40274606            double precision :: bgsprob
    4028             integer*4 dimension(10) :: nvwml
    4029             integer*4 dimension(10) :: ivwml1
    4030             integer*4 dimension(10) :: n14ml
    4031             integer*4 dimension(10) :: i14ml1
    4032             integer*4 dimension(2600) :: ivwat1
    4033             integer*4 dimension(2600) :: ivwat2
    4034             integer*4 dimension(2600) :: i14at1
    4035             integer*4 dimension(2600) :: i14at2
    4036             integer*4 dimension(10400) :: lvwat1
    4037             integer*4 dimension(10400) :: lvwat2
    4038             integer*4 dimension(10400) :: l14at
    4039             integer*4 dimension(10400) :: ixatvw
    4040             integer*4 dimension(10400) :: ixat14
    4041             real*8 dimension(800) :: olvlvr
    4042             real*8 dimension(800) :: vlvr
    4043             real*8 dimension(800) :: axvr
    4044             real*8 :: beta
    4045             real*8 dimension(18,18) :: c_f
    4046             real*8 dimension(18,18) :: a_f
    4047             real*8 dimension(4,6) :: chb_f
    4048             real*8 dimension(4,6) :: ahb_f
    4049             real*8 dimension(19) :: e0to_f
    4050             real*8 dimension(19) :: sgto_f
    4051             real*8 dimension(19) :: rnto_f
    4052             real*8 :: plt_f
    4053             real*8 :: slp_f
    4054             real*8 :: cohb_f
     4607            integer dimension(10) :: nvwml
     4608            integer dimension(10) :: ivwml1
     4609            integer dimension(10) :: n14ml
     4610            integer dimension(10) :: i14ml1
     4611            integer dimension(2600) :: ivwat1
     4612            integer dimension(2600) :: ivwat2
     4613            integer dimension(2600) :: i14at1
     4614            integer dimension(2600) :: i14at2
     4615            integer dimension(10400) :: lvwat1
     4616            integer dimension(10400) :: lvwat2
     4617            integer dimension(10400) :: l14at
     4618            integer dimension(10400) :: ixatvw
     4619            integer dimension(10400) :: ixat14
     4620            double precision dimension(800) :: olvlvr
     4621            double precision dimension(800) :: vlvr
     4622            double precision dimension(800) :: axvr
     4623            double precision :: beta
     4624            double precision dimension(18,18) :: c_f
     4625            double precision dimension(18,18) :: a_f
     4626            double precision dimension(4,6) :: chb_f
     4627            double precision dimension(4,6) :: ahb_f
     4628            double precision dimension(19) :: e0to_f
     4629            double precision dimension(19) :: sgto_f
     4630            double precision dimension(19) :: rnto_f
     4631            double precision :: plt_f
     4632            double precision :: slp_f
     4633            double precision :: cohb_f
    40554634            common /v_sol/ vdvol,asa,asap,asah
    40564635            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    41084687        end subroutine init_energy
    41094688        block data  ! in :smmp:init_energy.f
    4110             real*8 :: vdvol
    4111             real*8 :: asa
    4112             real*8 :: asap
    4113             real*8 :: asah
    4114             real*8 dimension(2600) :: cgat
    4115             real*8 dimension(2600) :: xbaat
    4116             real*8 dimension(2600) :: ybaat
    4117             real*8 dimension(2600) :: zbaat
    4118             real*8 dimension(2600) :: baat
    4119             real*8 dimension(2600) :: snbaat
    4120             real*8 dimension(2600) :: csbaat
    4121             real*8 dimension(2600) :: xtoat
    4122             real*8 dimension(2600) :: ytoat
    4123             real*8 dimension(2600) :: ztoat
    4124             real*8 dimension(2600) :: toat
    4125             real*8 dimension(2600) :: sntoat
    4126             real*8 dimension(2600) :: cstoat
    4127             real*8 dimension(2600) :: blat
    4128             real*8 dimension(2602) :: xat
    4129             real*8 dimension(2602) :: yat
    4130             real*8 dimension(2602) :: zat
    4131             integer*4 dimension(100,100) :: ijcont
    4132             integer*4 dimension(100) :: ind_alf
     4689            double precision :: vdvol
     4690            double precision :: asa
     4691            double precision :: asap
     4692            double precision :: asah
     4693            integer dimension(2600) :: cgat
     4694            double precision dimension(2600) :: xbaat
     4695            double precision dimension(2600) :: ybaat
     4696            double precision dimension(2600) :: zbaat
     4697            double precision dimension(2600) :: baat
     4698            double precision dimension(2600) :: snbaat
     4699            double precision dimension(2600) :: csbaat
     4700            double precision dimension(2600) :: xtoat
     4701            double precision dimension(2600) :: ytoat
     4702            double precision dimension(2600) :: ztoat
     4703            double precision dimension(2600) :: toat
     4704            double precision dimension(2600) :: sntoat
     4705            double precision dimension(2600) :: cstoat
     4706            double precision dimension(2600) :: blat
     4707            double precision dimension(2602) :: xat
     4708            double precision dimension(2602) :: yat
     4709            double precision dimension(2602) :: zat
     4710            integer dimension(100,100) :: ijcont
     4711            integer dimension(100) :: ind_alf
    41334712            logical optional,dimension(18) :: do_s=.false.
    41344713            logical optional,dimension(18) :: ac_s=.false.
    41354714            character dimension(500,4) :: nmrt
    41364715            character dimension(1000,3) :: nmvrrt
    4137             integer*4 :: nvr
    4138             real*8 optional,dimension(9,18) :: coef_sl=54*0.0
    4139             real*8 optional,dimension(9,18) :: rad_vdw=54*0.
    4140             real*8 dimension(100) :: surfres
    4141             integer*4 :: ntyhb
    4142             integer*4 dimension(100) :: ixtyhb
    4143             integer*4 dimension(100) :: nutyhb
    4144             integer*4 dimension(10,10) :: mmhb
    4145             character dimension(4,2600) :: nmat
    4146             integer*4 :: lunlib
    4147             integer*4 :: lunseq
    4148             integer*4 :: lunchg
    4149             integer*4 :: lunvar
    4150             integer*4 :: lunrst
     4716            integer :: nvr
     4717            double precision optional,dimension(9,18) :: coef_sl=54*0.0
     4718            double precision optional,dimension(9,18) :: rad_vdw=54*0.
     4719            double precision dimension(100) :: surfres
     4720            integer :: ntyhb
     4721            integer dimension(100) :: ixtyhb
     4722            integer dimension(100) :: nutyhb
     4723            integer dimension(10,10) :: mmhb
     4724            character dimension(2600,4) :: nmat
     4725            integer :: lunlib
     4726            integer :: lunseq
     4727            integer :: lunchg
     4728            integer :: lunvar
     4729            integer :: lunrst
    41514730            logical dimension(800) :: isrfvr
    4152             real*8 dimension(500) :: pbrt
    4153             real*8 dimension(1000) :: vuvrrt
    4154             real*8 dimension(1000) :: dvvrrt
    4155             integer*4 dimension(2600) :: ityat
    4156             integer*4 dimension(2600) :: iowat
    4157             integer*4 dimension(2600) :: iyowat
    4158             integer*4 dimension(2600) :: nbdat
    4159             integer*4 dimension(3,2600) :: ibdat
    4160             integer*4 dimension(3,2600) :: iybdat
    4161             integer*4 dimension(2600) :: ixmsat
    4162             real*8 optional :: ehm=362.55d0
    4163             real*8 optional,dimension(18) :: atpl=42.
    4164             real*8 optional,dimension(18) :: efel=85.
    4165             real*8 optional,dimension(18) :: emin=37.
    4166             real*8 optional,dimension(18) :: rmin=292.
    4167             real*8 optional,dimension(4,6) :: chb_s=2624.
    4168             real*8 optional,dimension(4,6) :: ahb_s=5890.
    4169             real*8 optional,dimension(19) :: e0to_s=20.
    4170             real*8 optional,dimension(19) :: sgto_s=-1.
    4171             real*8 optional,dimension(19) :: rnto_s=2.
    4172             real*8 optional :: eps_s=2.d0
    4173             real*8 dimension(2000,3) :: spoint
     4731            double precision dimension(500) :: pbrt
     4732            double precision dimension(1000) :: vuvrrt
     4733            double precision dimension(1000) :: dvvrrt
     4734            integer dimension(2600) :: ityat
     4735            integer dimension(2600) :: iowat
     4736            integer dimension(2600) :: iyowat
     4737            integer dimension(2600) :: nbdat
     4738            integer dimension(3,2600) :: ibdat
     4739            integer dimension(3,2600) :: iybdat
     4740            integer dimension(2600) :: ixmsat
     4741            double precision optional :: ehm=362.55d0
     4742            double precision optional,dimension(18) :: atpl=42.
     4743            double precision optional,dimension(18) :: efel=85.
     4744            double precision optional,dimension(18) :: emin=37.
     4745            double precision optional,dimension(18) :: rmin=292.
     4746            double precision optional,dimension(4,6) :: chb_s=2624.
     4747            double precision optional,dimension(4,6) :: ahb_s=5890.
     4748            double precision optional,dimension(19) :: e0to_s=20.
     4749            double precision optional,dimension(19) :: sgto_s=-1.
     4750            double precision optional,dimension(19) :: rnto_s=2.
     4751            double precision optional :: eps_s=2.d0
     4752            double precision dimension(2000,3) :: spoint
    41744753            logical optional,dimension(18) :: do_f=.false.
    41754754            logical optional,dimension(18) :: ac_f=.false.
    … …  
    41794758            character*80 :: varfil
    41804759            character*80 :: rstfil
    4181             integer*4 :: ntlml
    4182             integer*4 dimension(10) :: irsml1
    4183             integer*4 dimension(10) :: irsml2
    4184             integer*4 dimension(10) :: ivrml1
    4185             integer*4 dimension(10) :: nvrml
    4186             integer*4 dimension(10) :: imsml1
    4187             integer*4 dimension(10) :: nmsml
    4188             integer*4 dimension(10) :: iadml1
    4189             integer*4 dimension(10) :: nadml
    4190             integer*4 dimension(3,10) :: ixrfpt
    4191             integer*4 dimension(2600) :: ixatp
    4192             integer*4 :: ireg
    4193             real*8 dimension(100) :: blath
    4194             real*8 dimension(100) :: baath
    4195             real*8 dimension(100) :: toath
    4196             real*8 dimension(100) :: cgath
    4197             integer*4 dimension(100,100) :: iref
    4198             integer*4 :: nci
     4760            integer :: ntlml
     4761            integer dimension(10) :: irsml1
     4762            integer dimension(10) :: irsml2
     4763            integer dimension(10) :: ivrml1
     4764            integer dimension(10) :: nvrml
     4765            integer dimension(10) :: imsml1
     4766            integer dimension(10) :: nmsml
     4767            integer dimension(10) :: iadml1
     4768            integer dimension(10) :: nadml
     4769            integer dimension(3,10) :: ixrfpt
     4770            integer dimension(2600) :: ixatp
     4771            integer :: ireg
     4772            double precision dimension(100) :: blath
     4773            double precision dimension(100) :: baath
     4774            double precision dimension(100) :: toath
     4775            double precision dimension(100) :: cgath
     4776            integer dimension(100,100) :: iref
     4777            integer :: nci
    41994778            logical :: flex
    42004779            logical :: tesgrd
    42014780            logical :: sh2
    42024781            logical :: epsd
    4203             integer*4 :: ientyp
    4204             real*8 :: rgyh
    4205             real*8 :: rgyp
    4206             integer*4 :: idloa
    4207             integer*4 :: idloz
    4208             integer*4 :: idupa
    4209             integer*4 :: idupz
     4782            integer :: ientyp
     4783            double precision :: rgyh
     4784            double precision :: rgyp
     4785            integer :: idloa
     4786            integer :: idloz
     4787            integer :: idupa
     4788            integer :: idupz
    42104789            integer :: myrank
    42114790            integer :: no
    … …  
    42144793            character dimension(100,4) :: nmath
    42154794            character dimension(100,3) :: nmvrh
    4216             integer*4 dimension(100) :: ityath
    4217             integer*4 dimension(100) :: iowath
    4218             integer*4 dimension(100) :: iyowath
    4219             integer*4 dimension(100) :: nbdath
    4220             integer*4 dimension(3,100) :: ibdath
    4221             integer*4 dimension(3,100) :: iybdath
    4222             integer*4 dimension(100) :: ityvrh
    4223             integer*4 dimension(100) :: iclvrh
    4224             integer*4 dimension(100) :: iatvrh
     4795            integer dimension(100) :: ityath
     4796            integer dimension(100) :: iowath
     4797            integer dimension(100) :: iyowath
     4798            integer dimension(100) :: nbdath
     4799            integer dimension(3,100) :: ibdath
     4800            integer dimension(3,100) :: iybdath
     4801            integer dimension(100) :: ityvrh
     4802            integer dimension(100) :: iclvrh
     4803            integer dimension(100) :: iatvrh
    42254804            character dimension(100,4) :: seq
    4226             real*8 dimension(2600) :: rvdw
    4227             real*8 dimension(2600) :: sigma
    4228             real*8 dimension(2600,3) :: gradan
    4229             integer*4 dimension(18,18) :: ihbty
    4230             integer*4 :: npnt
     4805            double precision dimension(2600) :: rvdw
     4806            double precision dimension(2600) :: sigma
     4807            double precision dimension(2600,3) :: gradan
     4808            integer dimension(18,18) :: ihbty
     4809            integer :: npnt
    42314810            character dimension(10,80) :: nmml
    4232             real*8 dimension(18,18) :: cij
    4233             real*8 dimension(18,18) :: aij
    4234             real*8 dimension(18,18) :: a14
    4235             real*8 dimension(18,18) :: chb
    4236             real*8 dimension(18,18) :: ahb
    4237             real*8 dimension(19) :: e0to
    4238             real*8 dimension(19) :: sgto
    4239             real*8 dimension(19) :: rnto
    4240             real*8 dimension(19) :: esnto
    4241             real*8 optional :: conv=332.d0
    4242             real*8 optional :: plt=78.d0
    4243             real*8 optional :: slp=0.3d0
    4244             real*8 :: cohb
    4245             integer*4 dimension(100) :: iatrs1
    4246             integer*4 dimension(100) :: iatrs2
    4247             integer*4 dimension(100) :: ixatrs
    4248             integer*4 dimension(100) :: ivrrs1
    4249             integer*4 dimension(100) :: nvrrs
    4250             integer*4 :: ntlrt
    4251             integer*4 :: ntlsu
    4252             integer*4 dimension(500) :: i1vrrt
    4253             integer*4 dimension(500) :: i2vrrt
    4254             integer*4 dimension(4800) :: iprtsu
    4255             integer*4 dimension(800) :: i1rtsu
    4256             integer*4 dimension(800) :: nrtsu
    4257             integer*4 dimension(800) :: i1vrsu
    4258             integer*4 dimension(800) :: i2vrsu
    4259             integer*4 dimension(800) :: ipvrsu
    4260             real*8 dimension(3,10) :: rfpt
    4261             real*8 dimension(6,10) :: gbpr
    4262             real*8 dimension(3,10) :: xrfax
    4263             real*8 dimension(3,10) :: yrfax
    4264             real*8 dimension(3,10) :: zrfax
     4811            double precision dimension(18,18) :: cij
     4812            double precision dimension(18,18) :: aij
     4813            double precision dimension(18,18) :: a14
     4814            double precision dimension(18,18) :: chb
     4815            double precision dimension(18,18) :: ahb
     4816            double precision dimension(19) :: e0to
     4817            double precision dimension(19) :: sgto
     4818            double precision dimension(19) :: rnto
     4819            double precision dimension(19) :: esnto
     4820            double precision optional :: conv=332.d0
     4821            double precision optional :: plt=78.d0
     4822            double precision optional :: slp=0.3d0
     4823            double precision :: cohb
     4824            integer dimension(100) :: iatrs1
     4825            integer dimension(100) :: iatrs2
     4826            integer dimension(100) :: ixatrs
     4827            integer dimension(100) :: ivrrs1
     4828            integer dimension(100) :: nvrrs
     4829            integer :: ntlrt
     4830            integer :: ntlsu
     4831            integer dimension(500) :: i1vrrt
     4832            integer dimension(500) :: i2vrrt
     4833            integer dimension(4800) :: iprtsu
     4834            integer dimension(800) :: i1rtsu
     4835            integer dimension(800) :: nrtsu
     4836            integer dimension(800) :: i1vrsu
     4837            integer dimension(800) :: i2vrsu
     4838            integer dimension(800) :: ipvrsu
     4839            double precision dimension(3,10) :: rfpt
     4840            double precision dimension(6,10) :: gbpr
     4841            double precision dimension(3,10) :: xrfax
     4842            double precision dimension(3,10) :: yrfax
     4843            double precision dimension(3,10) :: zrfax
    42654844            logical dimension(800) :: fxvr
    4266             real*8 :: eyel
    4267             real*8 :: eyvw
    4268             real*8 :: eyhb
    4269             real*8 :: eyvr
    4270             real*8 :: eysm
    4271             real*8 :: eysl
    4272             real*8 :: eyrg
    4273             real*8 :: eyslh
    4274             real*8 :: eyslp
    4275             real*8 :: eyab
    4276             real*8 :: eysmi
    4277             real*8 :: eyhbi
    4278             real*8 :: eyeli
    4279             real*8 :: eyvwi
    4280             real*8 dimension(800) :: gdeyvr
    4281             real*8 dimension(800) :: gdeyrg
    4282             real*8 dimension(800) :: gdeysl
    4283             real*8 dimension(60) :: gdeygb
    4284             real*8 :: wtey
    4285             real*8 :: wtrg
    4286             integer*4 dimension(800) :: iatvr
    4287             integer*4 dimension(800) :: ityvr
    4288             integer*4 dimension(800) :: iclvr
    4289             integer*4 dimension(800) :: iorvr
    4290             integer*4 dimension(800) :: imsvr1
    4291             integer*4 dimension(800) :: imsvr2
    4292             integer*4 dimension(2400) :: latms1
    4293             integer*4 dimension(2400) :: latms2
    4294             integer*4 dimension(800) :: iadvr1
    4295             integer*4 dimension(800) :: iadvr2
    4296             integer*4 dimension(800) :: ladvr
    4297             integer*4 dimension(800) :: idvr
     4845            double precision :: eyel
     4846            double precision :: eyvw
     4847            double precision :: eyhb
     4848            double precision :: eyvr
     4849            double precision :: eysm
     4850            double precision :: eysl
     4851            double precision :: eyrg
     4852            double precision :: eyslh
     4853            double precision :: eyslp
     4854            double precision :: eyab
     4855            double precision :: eysmi
     4856            double precision :: eyhbi
     4857            double precision :: eyeli
     4858            double precision :: eyvwi
     4859            double precision dimension(800) :: gdeyvr
     4860            double precision dimension(800) :: gdeyrg
     4861            double precision dimension(800) :: gdeysl
     4862            double precision dimension(60) :: gdeygb
     4863            double precision :: wtey
     4864            double precision :: wtrg
     4865            integer dimension(800) :: iatvr
     4866            integer dimension(800) :: ityvr
     4867            integer dimension(800) :: iclvr
     4868            integer dimension(800) :: iorvr
     4869            integer dimension(800) :: imsvr1
     4870            integer dimension(800) :: imsvr2
     4871            integer dimension(2400) :: latms1
     4872            integer dimension(2400) :: latms2
     4873            integer dimension(800) :: iadvr1
     4874            integer dimension(800) :: iadvr2
     4875            integer dimension(800) :: ladvr
     4876            integer dimension(800) :: idvr
    42984877            integer :: enysolct
    4299             character dimension(3,800) :: nmvr
    4300             real*8 :: boxsize
     4878            character dimension(800,3) :: nmvr
     4879            double precision :: boxsize
    43014880            integer :: seed
    4302             character*100 :: zimm
    4303             integer*4 :: itysol
     4881            character*mxrs :: zimm
     4882            integer :: itysol
    43044883            logical :: isolscl
    4305             real*8 dimension(100) :: rsstrg
     4884            double precision dimension(100) :: rsstrg
    43064885            character dimension(35,4) :: rsnmcd
    43074886            character dimension(35) :: onltcd
    … …  
    43094888            integer :: upchswitch
    43104889            double precision :: bgsprob
    4311             integer*4 dimension(10) :: nvwml
    4312             integer*4 dimension(10) :: ivwml1
    4313             integer*4 dimension(10) :: n14ml
    4314             integer*4 dimension(10) :: i14ml1
    4315             integer*4 dimension(2600) :: ivwat1
    4316             integer*4 dimension(2600) :: ivwat2
    4317             integer*4 dimension(2600) :: i14at1
    4318             integer*4 dimension(2600) :: i14at2
    4319             integer*4 dimension(10400) :: lvwat1
    4320             integer*4 dimension(10400) :: lvwat2
    4321             integer*4 dimension(10400) :: l14at
    4322             integer*4 dimension(10400) :: ixatvw
    4323             integer*4 dimension(10400) :: ixat14
    4324             real*8 dimension(800) :: olvlvr
    4325             real*8 dimension(800) :: vlvr
    4326             real*8 dimension(800) :: axvr
    4327             real*8 :: beta
    4328             real*8 optional,dimension(18,18) :: c_f=40.
    4329             real*8 optional,dimension(18,18) :: a_f=7.74
    4330             real*8 optional,dimension(4,6) :: chb_f=180.
    4331             real*8 optional,dimension(4,6) :: ahb_f=6600.
    4332             real*8 optional,dimension(19) :: e0to_f=20.
    4333             real*8 optional,dimension(19) :: sgto_f=-1.
    4334             real*8 optional,dimension(19) :: rnto_f=2.
    4335             real*8 optional :: plt_f=78.d0
    4336             real*8 optional :: slp_f=0.16d0
    4337             real*8 optional :: cohb_f=6.d0
    4338             real*8 parameter,optional :: cdr=0.0174532925199
    4339             integer*4 parameter,optional :: mxvw=10400
    4340             integer*4 parameter,optional :: mxtyat=18
    4341             real*8 parameter,optional :: crd=57.2957795131
    4342             real*8 parameter,optional :: zero=0.0
    4343             integer*4 parameter,optional :: mxtyto=19
    4344             character*255 parameter,optional :: version='$id: incl.h 338 2007-08-09 15:00:18z meinke $'
    4345             integer*4 parameter,optional :: mxbd=3
    4346             integer*4 parameter,optional :: mxrs=100
    4347             integer*4 parameter,optional :: mxrt=500
    4348             integer*4 parameter,optional :: mx14=10400
    4349             integer*4 parameter,optional :: mxtybl=0
    4350             integer*4 parameter,optional :: mxtyba=0
    4351             real*8 parameter,optional :: pi=3.14159265359
    4352             integer*4 parameter,optional :: nrsty=35
    4353             integer*4 parameter,optional :: ione=1
    4354             integer*4 parameter,optional :: mxinbox=80000
    4355             integer*4 parameter,optional :: mxhbac=6
    4356             integer*4 parameter,optional :: mxvrh=100
    4357             integer*4 parameter,optional :: mxrtsu=4800
    4358             integer*4 parameter,optional :: mxat=2600
     4890            integer dimension(10) :: nvwml
     4891            integer dimension(10) :: ivwml1
     4892            integer dimension(10) :: n14ml
     4893            integer dimension(10) :: i14ml1
     4894            integer dimension(2600) :: ivwat1
     4895            integer dimension(2600) :: ivwat2
     4896            integer dimension(2600) :: i14at1
     4897            integer dimension(2600) :: i14at2
     4898            integer dimension(10400) :: lvwat1
     4899            integer dimension(10400) :: lvwat2
     4900            integer dimension(10400) :: l14at
     4901            integer dimension(10400) :: ixatvw
     4902            integer dimension(10400) :: ixat14
     4903            double precision dimension(800) :: olvlvr
     4904            double precision dimension(800) :: vlvr
     4905            double precision dimension(800) :: axvr
     4906            double precision :: beta
     4907            double precision optional,dimension(18,18) :: c_f=40.
     4908            double precision optional,dimension(18,18) :: a_f=7.74
     4909            double precision optional,dimension(4,6) :: chb_f=180.
     4910            double precision optional,dimension(4,6) :: ahb_f=6600.
     4911            double precision optional,dimension(19) :: e0to_f=20.
     4912            double precision optional,dimension(19) :: sgto_f=-1.
     4913            double precision optional,dimension(19) :: rnto_f=2.
     4914            double precision optional :: plt_f=78.d0
     4915            double precision optional :: slp_f=0.16d0
     4916            double precision optional :: cohb_f=6.d0
     4917            double precision parameter,optional :: cdr=0.0174532925199
     4918            integer parameter,optional :: mxvw=10400
     4919            integer parameter,optional :: mxtyat=18
     4920            integer parameter,optional :: mxat=2600
     4921            double precision parameter,optional :: crd=57.2957795131
     4922            double precision parameter,optional :: zero=0.0
     4923            integer parameter,optional :: mxtyto=19
     4924            character*255 parameter,optional :: version='$id: incl.h 335 2007-08-09 09:32:21z meinke $'
     4925            integer parameter,optional :: mxbd=3
     4926            integer parameter,optional :: mxrs=100
     4927            integer parameter,optional :: mxrt=500
     4928            integer parameter,optional :: mx14=10400
     4929            integer parameter,optional :: mxtybl=0
     4930            integer parameter,optional :: mxtyba=0
     4931            double precision parameter,optional :: pi=3.14159265359
     4932            integer parameter,optional :: nrsty=35
     4933            integer parameter,optional :: ione=1
     4934            integer :: logfileunit
     4935            integer parameter,optional :: mxinbox=80000
     4936            integer parameter,optional :: mxhbac=6
     4937            integer parameter,optional :: mxvrh=100
     4938            integer parameter,optional :: mxrtsu=4800
    43594939            integer parameter,optional :: max_replica=2048
    4360             real*8 parameter,optional :: rwater=1.4
    4361             integer*4 parameter,optional :: mxms=2400
    4362             integer*4 parameter,optional :: mxml=10
    4363             integer*4 parameter,optional :: mxbox=80000
    4364             real*8 parameter,optional :: one=1.0
    4365             integer*4 parameter,optional :: mxtysol=9
    4366             real*8 parameter,optional :: pi2=6.28318530718
    4367             integer*4 parameter,optional :: mxhbdo=4
    4368             integer*4 parameter,optional :: izero=0
    4369             integer*4 parameter,optional :: mxpoint=2000
    4370             integer*4 parameter,optional :: mxtyhb=100
    4371             integer*4 parameter,optional :: mxath=100
    4372             integer*4 parameter,optional :: mxvrrt=1000
    4373             integer*4 parameter,optional :: mxvr=800
    4374             real*8 parameter,optional :: pi4=12.5663706144
     4940            double precision parameter,optional :: rwater=1.4
     4941            integer parameter,optional :: mxms=2400
     4942            integer parameter,optional :: mxml=10
     4943            integer parameter,optional :: mxbox=80000
     4944            double precision parameter,optional :: one=1.0
     4945            integer parameter,optional :: mxtysol=9
     4946            double precision parameter,optional :: pi2=6.28318530718
     4947            integer parameter,optional :: mxhbdo=4
     4948            integer parameter,optional :: izero=0
     4949            integer parameter,optional :: mxpoint=2000
     4950            integer parameter,optional :: mxtyhb=100
     4951            integer parameter,optional :: mxath=100
     4952            integer parameter,optional :: mxvrrt=1000
     4953            integer :: maxloglevel
     4954            integer parameter,optional :: mxvr=800
     4955            double precision parameter,optional :: pi4=12.5663706144
    43754956            integer parameter,optional :: max_proc=2048
    43764957            common /v_sol/ vdvol,asa,asap,asah
    … …  
    44325013            character*4 :: grpn
    44335014            character*4 :: grpc
    4434             character*80 optional,intent(in) :: seqfile=' '
    4435             character*80 optional,intent(in) :: varfile=' '
    4436             real*8 :: vdvol
    4437             real*8 :: asa
    4438             real*8 :: asap
    4439             real*8 :: asah
    4440             real*8 dimension(2600) :: cgat
    4441             real*8 dimension(2600) :: xbaat
    4442             real*8 dimension(2600) :: ybaat
    4443             real*8 dimension(2600) :: zbaat
    4444             real*8 dimension(2600) :: baat
    4445             real*8 dimension(2600) :: snbaat
    4446             real*8 dimension(2600) :: csbaat
    4447             real*8 dimension(2600) :: xtoat
    4448             real*8 dimension(2600) :: ytoat
    4449             real*8 dimension(2600) :: ztoat
    4450             real*8 dimension(2600) :: toat
    4451             real*8 dimension(2600) :: sntoat
    4452             real*8 dimension(2600) :: cstoat
    4453             real*8 dimension(2600) :: blat
    4454             real*8 dimension(2602) :: xat
    4455             real*8 dimension(2602) :: yat
    4456             real*8 dimension(2602) :: zat
    4457             integer*4 dimension(100,100) :: ijcont
    4458             integer*4 dimension(100) :: ind_alf
     5015            character*80 optional, intent(in) :: seqfile=' '
     5016            character*80 optional, intent(in) :: varfile=' '
     5017            double precision :: vdvol
     5018            double precision :: asa
     5019            double precision :: asap
     5020            double precision :: asah
     5021            integer dimension(2600) :: cgat
     5022            double precision dimension(2600) :: xbaat
     5023            double precision dimension(2600) :: ybaat
     5024            double precision dimension(2600) :: zbaat
     5025            double precision dimension(2600) :: baat
     5026            double precision dimension(2600) :: snbaat
     5027            double precision dimension(2600) :: csbaat
     5028            double precision dimension(2600) :: xtoat
     5029            double precision dimension(2600) :: ytoat
     5030            double precision dimension(2600) :: ztoat
     5031            double precision dimension(2600) :: toat
     5032            double precision dimension(2600) :: sntoat
     5033            double precision dimension(2600) :: cstoat
     5034            double precision dimension(2600) :: blat
     5035            double precision dimension(2602) :: xat
     5036            double precision dimension(2602) :: yat
     5037            double precision dimension(2602) :: zat
     5038            integer dimension(100,100) :: ijcont
     5039            integer dimension(100) :: ind_alf
    44595040            logical dimension(18) :: do_s
    44605041            logical dimension(18) :: ac_s
    44615042            character dimension(500,4) :: nmrt
    44625043            character dimension(1000,3) :: nmvrrt
    4463             integer*4 :: nvr
    4464             real*8 dimension(9,18) :: coef_sl
    4465             real*8 dimension(9,18) :: rad_vdw
    4466             real*8 dimension(100) :: surfres
    4467             integer*4 :: ntyhb
    4468             integer*4 dimension(100) :: ixtyhb
    4469             integer*4 dimension(100) :: nutyhb
    4470             integer*4 dimension(10,10) :: mmhb
    4471             character dimension(4,2600) :: nmat
    4472             integer*4 :: lunlib
    4473             integer*4 :: lunseq
    4474             integer*4 :: lunchg
    4475             integer*4 :: lunvar
    4476             integer*4 :: lunrst
     5044            integer :: nvr
     5045            double precision dimension(9,18) :: coef_sl
     5046            double precision dimension(9,18) :: rad_vdw
     5047            double precision dimension(100) :: surfres
     5048            integer :: ntyhb
     5049            integer dimension(100) :: ixtyhb
     5050            integer dimension(100) :: nutyhb
     5051            integer dimension(10,10) :: mmhb
     5052            character dimension(2600,4) :: nmat
     5053            integer :: lunlib
     5054            integer :: lunseq
     5055            integer :: lunchg
     5056            integer :: lunvar
     5057            integer :: lunrst
    44775058            logical dimension(800) :: isrfvr
    4478             real*8 dimension(500) :: pbrt
    4479             real*8 dimension(1000) :: vuvrrt
    4480             real*8 dimension(1000) :: dvvrrt
    4481             integer*4 dimension(2600) :: ityat
    4482             integer*4 dimension(2600) :: iowat
    4483             integer*4 dimension(2600) :: iyowat
    4484             integer*4 dimension(2600) :: nbdat
    4485             integer*4 dimension(3,2600) :: ibdat
    4486             integer*4 dimension(3,2600) :: iybdat
    4487             integer*4 dimension(2600) :: ixmsat
    4488             real*8 :: ehm
    4489             real*8 dimension(18) :: atpl
    4490             real*8 dimension(18) :: efel
    4491             real*8 dimension(18) :: emin
    4492             real*8 dimension(18) :: rmin
    4493             real*8 dimension(4,6) :: chb_s
    4494             real*8 dimension(4,6) :: ahb_s
    4495             real*8 dimension(19) :: e0to_s
    4496             real*8 dimension(19) :: sgto_s
    4497             real*8 dimension(19) :: rnto_s
    4498             real*8 :: eps_s
    4499             real*8 dimension(2000,3) :: spoint
     5059            double precision dimension(500) :: pbrt
     5060            double precision dimension(1000) :: vuvrrt
     5061            double precision dimension(1000) :: dvvrrt
     5062            integer dimension(2600) :: ityat
     5063            integer dimension(2600) :: iowat
     5064            integer dimension(2600) :: iyowat
     5065            integer dimension(2600) :: nbdat
     5066            integer dimension(3,2600) :: ibdat
     5067            integer dimension(3,2600) :: iybdat
     5068            integer dimension(2600) :: ixmsat
     5069            double precision :: ehm
     5070            double precision dimension(18) :: atpl
     5071            double precision dimension(18) :: efel
     5072            double precision dimension(18) :: emin
     5073            double precision dimension(18) :: rmin
     5074            double precision dimension(4,6) :: chb_s
     5075            double precision dimension(4,6) :: ahb_s
     5076            double precision dimension(19) :: e0to_s
     5077            double precision dimension(19) :: sgto_s
     5078            double precision dimension(19) :: rnto_s
     5079            double precision :: eps_s
     5080            double precision dimension(2000,3) :: spoint
    45005081            logical dimension(18) :: do_f
    45015082            logical dimension(18) :: ac_f
    … …  
    45055086            character*80 :: varfil
    45065087            character*80 :: rstfil
    4507             integer*4 :: ntlml
    4508             integer*4 dimension(10) :: irsml1
    4509             integer*4 dimension(10) :: irsml2
    4510             integer*4 dimension(10) :: ivrml1
    4511             integer*4 dimension(10) :: nvrml
    4512             integer*4 dimension(10) :: imsml1
    4513             integer*4 dimension(10) :: nmsml
    4514             integer*4 dimension(10) :: iadml1
    4515             integer*4 dimension(10) :: nadml
    4516             integer*4 dimension(3,10) :: ixrfpt
    4517             integer*4 dimension(2600) :: ixatp
    4518             integer*4 :: ireg
    4519             real*8 dimension(100) :: blath
    4520             real*8 dimension(100) :: baath
    4521             real*8 dimension(100) :: toath
    4522             real*8 dimension(100) :: cgath
    4523             integer*4 dimension(100,100) :: iref
    4524             integer*4 :: nci
     5088            integer :: ntlml
     5089            integer dimension(10) :: irsml1
     5090            integer dimension(10) :: irsml2
     5091            integer dimension(10) :: ivrml1
     5092            integer dimension(10) :: nvrml
     5093            integer dimension(10) :: imsml1
     5094            integer dimension(10) :: nmsml
     5095            integer dimension(10) :: iadml1
     5096            integer dimension(10) :: nadml
     5097            integer dimension(3,10) :: ixrfpt
     5098            integer dimension(2600) :: ixatp
     5099            integer :: ireg
     5100            double precision dimension(100) :: blath
     5101            double precision dimension(100) :: baath
     5102            double precision dimension(100) :: toath
     5103            double precision dimension(100) :: cgath
     5104            integer dimension(100,100) :: iref
     5105            integer :: nci
    45255106            logical :: flex
    45265107            logical :: tesgrd
    45275108            logical :: sh2
    45285109            logical :: epsd
    4529             integer*4 :: ientyp
    4530             real*8 :: rgyh
    4531             real*8 :: rgyp
    4532             integer*4 :: idloa
    4533             integer*4 :: idloz
    4534             integer*4 :: idupa
    4535             integer*4 :: idupz
     5110            integer :: ientyp
     5111            double precision :: rgyh
     5112            double precision :: rgyp
     5113            integer :: idloa
     5114            integer :: idloz
     5115            integer :: idupa
     5116            integer :: idupz
    45365117            integer :: myrank
    45375118            integer :: no
    … …  
    45405121            character dimension(100,4) :: nmath
    45415122            character dimension(100,3) :: nmvrh
    4542             integer*4 dimension(100) :: ityath
    4543             integer*4 dimension(100) :: iowath
    4544             integer*4 dimension(100) :: iyowath
    4545             integer*4 dimension(100) :: nbdath
    4546             integer*4 dimension(3,100) :: ibdath
    4547             integer*4 dimension(3,100) :: iybdath
    4548             integer*4 dimension(100) :: ityvrh
    4549             integer*4 dimension(100) :: iclvrh
    4550             integer*4 dimension(100) :: iatvrh
     5123            integer dimension(100) :: ityath
     5124            integer dimension(100) :: iowath
     5125            integer dimension(100) :: iyowath
     5126            integer dimension(100) :: nbdath
     5127            integer dimension(3,100) :: ibdath
     5128            integer dimension(3,100) :: iybdath
     5129            integer dimension(100) :: ityvrh
     5130            integer dimension(100) :: iclvrh
     5131            integer dimension(100) :: iatvrh
    45515132            character dimension(100,4) :: seq
    45525133            integer*4 :: nchp
    … …  
    45575138            integer*4 :: natp
    45585139            integer*4 dimension(10000) :: noatp
    4559             real*8 dimension(2600) :: rvdw
    4560             real*8 dimension(2600) :: sigma
    4561             real*8 dimension(2600,3) :: gradan
    4562             integer*4 dimension(18,18) :: ihbty
     5140            double precision dimension(2600) :: rvdw
     5141            double precision dimension(2600) :: sigma
     5142            double precision dimension(2600,3) :: gradan
     5143            integer dimension(18,18) :: ihbty
    45635144            character dimension(100) :: chnp
    45645145            character dimension(1000,3) :: rsnmp
    45655146            character dimension(1000,5) :: rsidp
    45665147            character dimension(10000,4) :: atnmp
    4567             integer*4 :: npnt
     5148            integer :: npnt
    45685149            character dimension(10,80) :: nmml
    4569             real*8 dimension(18,18) :: cij
    4570             real*8 dimension(18,18) :: aij
    4571             real*8 dimension(18,18) :: a14
    4572             real*8 dimension(18,18) :: chb
    4573             real*8 dimension(18,18) :: ahb
    4574             real*8 dimension(19) :: e0to
    4575             real*8 dimension(19) :: sgto
    4576             real*8 dimension(19) :: rnto
    4577             real*8 dimension(19) :: esnto
    4578             real*8 :: conv
    4579             real*8 :: plt
    4580             real*8 :: slp
    4581             real*8 :: cohb
     5150            double precision dimension(18,18) :: cij
     5151            double precision dimension(18,18) :: aij
     5152            double precision dimension(18,18) :: a14
     5153            double precision dimension(18,18) :: chb
     5154            double precision dimension(18,18) :: ahb
     5155            double precision dimension(19) :: e0to
     5156            double precision dimension(19) :: sgto
     5157            double precision dimension(19) :: rnto
     5158            double precision dimension(19) :: esnto
     5159            double precision :: conv
     5160            double precision :: plt
     5161            double precision :: slp
     5162            double precision :: cohb
    45825163            real*8 dimension(10000) :: xatp
    45835164            real*8 dimension(10000) :: yatp
    45845165            real*8 dimension(10000) :: zatp
    4585             integer*4 dimension(100) :: iatrs1
    4586             integer*4 dimension(100) :: iatrs2
    4587             integer*4 dimension(100) :: ixatrs
    4588             integer*4 dimension(100) :: ivrrs1
    4589             integer*4 dimension(100) :: nvrrs
    4590             integer*4 :: ntlrt
    4591             integer*4 :: ntlsu
    4592             integer*4 dimension(500) :: i1vrrt
    4593             integer*4 dimension(500) :: i2vrrt
    4594             integer*4 dimension(4800) :: iprtsu
    4595             integer*4 dimension(800) :: i1rtsu
    4596             integer*4 dimension(800) :: nrtsu
    4597             integer*4 dimension(800) :: i1vrsu
    4598             integer*4 dimension(800) :: i2vrsu
    4599             integer*4 dimension(800) :: ipvrsu
    4600             real*8 dimension(3,10) :: rfpt
    4601             real*8 dimension(6,10) :: gbpr
    4602             real*8 dimension(3,10) :: xrfax
    4603             real*8 dimension(3,10) :: yrfax
    4604             real*8 dimension(3,10) :: zrfax
     5166            integer dimension(100) :: iatrs1
     5167            integer dimension(100) :: iatrs2
     5168            integer dimension(100) :: ixatrs
     5169            integer dimension(100) :: ivrrs1
     5170            integer dimension(100) :: nvrrs
     5171            integer :: ntlrt
     5172            integer :: ntlsu
     5173            integer dimension(500) :: i1vrrt
     5174            integer dimension(500) :: i2vrrt
     5175            integer dimension(4800) :: iprtsu
     5176            integer dimension(800) :: i1rtsu
     5177            integer dimension(800) :: nrtsu
     5178            integer dimension(800) :: i1vrsu
     5179            integer dimension(800) :: i2vrsu
     5180            integer dimension(800) :: ipvrsu
     5181            double precision dimension(3,10) :: rfpt
     5182            double precision dimension(6,10) :: gbpr
     5183            double precision dimension(3,10) :: xrfax
     5184            double precision dimension(3,10) :: yrfax
     5185            double precision dimension(3,10) :: zrfax
    46055186            logical dimension(800) :: fxvr
    4606             real*8 :: eyel
    4607             real*8 :: eyvw
    4608             real*8 :: eyhb
    4609             real*8 :: eyvr
    4610             real*8 :: eysm
    4611             real*8 :: eysl
    4612             real*8 :: eyrg
    4613             real*8 :: eyslh
    4614             real*8 :: eyslp
    4615             real*8 :: eyab
    4616             real*8 :: eysmi
    4617             real*8 :: eyhbi
    4618             real*8 :: eyeli
    4619             real*8 :: eyvwi
    4620             real*8 dimension(800) :: gdeyvr
    4621             real*8 dimension(800) :: gdeyrg
    4622             real*8 dimension(800) :: gdeysl
    4623             real*8 dimension(60) :: gdeygb
    4624             real*8 :: wtey
    4625             real*8 :: wtrg
    4626             integer*4 dimension(800) :: iatvr
    4627             integer*4 dimension(800) :: ityvr
    4628             integer*4 dimension(800) :: iclvr
    4629             integer*4 dimension(800) :: iorvr
    4630             integer*4 dimension(800) :: imsvr1
    4631             integer*4 dimension(800) :: imsvr2
    4632             integer*4 dimension(2400) :: latms1
    4633             integer*4 dimension(2400) :: latms2
    4634             integer*4 dimension(800) :: iadvr1
    4635             integer*4 dimension(800) :: iadvr2
    4636             integer*4 dimension(800) :: ladvr
    4637             integer*4 dimension(800) :: idvr
     5187            double precision :: eyel
     5188            double precision :: eyvw
     5189            double precision :: eyhb
     5190            double precision :: eyvr
     5191            double precision :: eysm
     5192            double precision :: eysl
     5193            double precision :: eyrg
     5194            double precision :: eyslh
     5195            double precision :: eyslp
     5196            double precision :: eyab
     5197            double precision :: eysmi
     5198            double precision :: eyhbi
     5199            double precision :: eyeli
     5200            double precision :: eyvwi
     5201            double precision dimension(800) :: gdeyvr
     5202            double precision dimension(800) :: gdeyrg
     5203            double precision dimension(800) :: gdeysl
     5204            double precision dimension(60) :: gdeygb
     5205            double precision :: wtey
     5206            double precision :: wtrg
     5207            integer dimension(800) :: iatvr
     5208            integer dimension(800) :: ityvr
     5209            integer dimension(800) :: iclvr
     5210            integer dimension(800) :: iorvr
     5211            integer dimension(800) :: imsvr1
     5212            integer dimension(800) :: imsvr2
     5213            integer dimension(2400) :: latms1
     5214            integer dimension(2400) :: latms2
     5215            integer dimension(800) :: iadvr1
     5216            integer dimension(800) :: iadvr2
     5217            integer dimension(800) :: ladvr
     5218            integer dimension(800) :: idvr
    46385219            integer :: enysolct
    4639             character dimension(3,800) :: nmvr
    4640             real*8 :: boxsize
     5220            character dimension(800,3) :: nmvr
     5221            double precision :: boxsize
    46415222            integer :: seed
    4642             character*100 :: zimm
    4643             integer*4 :: itysol
     5223            character*mxrs :: zimm
     5224            integer :: itysol
    46445225            logical :: isolscl
    4645             real*8 dimension(100) :: rsstrg
     5226            double precision dimension(100) :: rsstrg
    46465227            character dimension(35,4) :: rsnmcd
    46475228            character dimension(35) :: onltcd
    … …  
    46495230            integer :: upchswitch
    46505231            double precision :: bgsprob
    4651             integer*4 dimension(10) :: nvwml
    4652             integer*4 dimension(10) :: ivwml1
    4653             integer*4 dimension(10) :: n14ml
    4654             integer*4 dimension(10) :: i14ml1
    4655             integer*4 dimension(2600) :: ivwat1
    4656             integer*4 dimension(2600) :: ivwat2
    4657             integer*4 dimension(2600) :: i14at1
    4658             integer*4 dimension(2600) :: i14at2
    4659             integer*4 dimension(10400) :: lvwat1
    4660             integer*4 dimension(10400) :: lvwat2
    4661             integer*4 dimension(10400) :: l14at
    4662             integer*4 dimension(10400) :: ixatvw
    4663             integer*4 dimension(10400) :: ixat14
    4664             real*8 dimension(800) :: olvlvr
    4665             real*8 dimension(800) :: vlvr
    4666             real*8 dimension(800) :: axvr
    4667             real*8 :: beta
    4668             real*8 dimension(18,18) :: c_f
    4669             real*8 dimension(18,18) :: a_f
    4670             real*8 dimension(4,6) :: chb_f
    4671             real*8 dimension(4,6) :: ahb_f
    4672             real*8 dimension(19) :: e0to_f
    4673             real*8 dimension(19) :: sgto_f
    4674             real*8 dimension(19) :: rnto_f
    4675             real*8 :: plt_f
    4676             real*8 :: slp_f
    4677             real*8 :: cohb_f
     5232            integer dimension(10) :: nvwml
     5233            integer dimension(10) :: ivwml1
     5234            integer dimension(10) :: n14ml
     5235            integer dimension(10) :: i14ml1
     5236            integer dimension(2600) :: ivwat1
     5237            integer dimension(2600) :: ivwat2
     5238            integer dimension(2600) :: i14at1
     5239            integer dimension(2600) :: i14at2
     5240            integer dimension(10400) :: lvwat1
     5241            integer dimension(10400) :: lvwat2
     5242            integer dimension(10400) :: l14at
     5243            integer dimension(10400) :: ixatvw
     5244            integer dimension(10400) :: ixat14
     5245            double precision dimension(800) :: olvlvr
     5246            double precision dimension(800) :: vlvr
     5247            double precision dimension(800) :: axvr
     5248            double precision :: beta
     5249            double precision dimension(18,18) :: c_f
     5250            double precision dimension(18,18) :: a_f
     5251            double precision dimension(4,6) :: chb_f
     5252            double precision dimension(4,6) :: ahb_f
     5253            double precision dimension(19) :: e0to_f
     5254            double precision dimension(19) :: sgto_f
     5255            double precision dimension(19) :: rnto_f
     5256            double precision :: plt_f
     5257            double precision :: slp_f
     5258            double precision :: cohb_f
    46785259            common /v_sol/ vdvol,asa,asap,asah
    46795260            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    47385319            integer*4 intent(in) :: nsteps
    47395320            real*8 intent(in) :: acc
    4740             real*8 :: vdvol
    4741             real*8 :: asa
    4742             real*8 :: asap
    4743             real*8 :: asah
    4744             real*8 dimension(2600) :: cgat
    4745             real*8 dimension(2600) :: xbaat
    4746             real*8 dimension(2600) :: ybaat
    4747             real*8 dimension(2600) :: zbaat
    4748             real*8 dimension(2600) :: baat
    4749             real*8 dimension(2600) :: snbaat
    4750             real*8 dimension(2600) :: csbaat
    4751             real*8 dimension(2600) :: xtoat
    4752             real*8 dimension(2600) :: ytoat
    4753             real*8 dimension(2600) :: ztoat
    4754             real*8 dimension(2600) :: toat
    4755             real*8 dimension(2600) :: sntoat
    4756             real*8 dimension(2600) :: cstoat
    4757             real*8 dimension(2600) :: blat
    4758             real*8 dimension(2602) :: xat
    4759             real*8 dimension(2602) :: yat
    4760             real*8 dimension(2602) :: zat
    4761             integer*4 dimension(100,100) :: ijcont
    4762             integer*4 dimension(100) :: ind_alf
     5321            double precision :: vdvol
     5322            double precision :: asa
     5323            double precision :: asap
     5324            double precision :: asah
     5325            integer dimension(2600) :: cgat
     5326            double precision dimension(2600) :: xbaat
     5327            double precision dimension(2600) :: ybaat
     5328            double precision dimension(2600) :: zbaat
     5329            double precision dimension(2600) :: baat
     5330            double precision dimension(2600) :: snbaat
     5331            double precision dimension(2600) :: csbaat
     5332            double precision dimension(2600) :: xtoat
     5333            double precision dimension(2600) :: ytoat
     5334            double precision dimension(2600) :: ztoat
     5335            double precision dimension(2600) :: toat
     5336            double precision dimension(2600) :: sntoat
     5337            double precision dimension(2600) :: cstoat
     5338            double precision dimension(2600) :: blat
     5339            double precision dimension(2602) :: xat
     5340            double precision dimension(2602) :: yat
     5341            double precision dimension(2602) :: zat
     5342            integer dimension(100,100) :: ijcont
     5343            integer dimension(100) :: ind_alf
    47635344            logical dimension(18) :: do_s
    47645345            logical dimension(18) :: ac_s
    47655346            character dimension(500,4) :: nmrt
    47665347            character dimension(1000,3) :: nmvrrt
    4767             integer*4 :: nvr
    4768             real*8 dimension(9,18) :: coef_sl
    4769             real*8 dimension(9,18) :: rad_vdw
    4770             real*8 dimension(100) :: surfres
    4771             integer*4 :: ntyhb
    4772             integer*4 dimension(100) :: ixtyhb
    4773             integer*4 dimension(100) :: nutyhb
    4774             integer*4 dimension(10,10) :: mmhb
    4775             character dimension(4,2600) :: nmat
    4776             integer*4 :: lunlib
    4777             integer*4 :: lunseq
    4778             integer*4 :: lunchg
    4779             integer*4 :: lunvar
    4780             integer*4 :: lunrst
     5348            integer :: nvr
     5349            double precision dimension(9,18) :: coef_sl
     5350            double precision dimension(9,18) :: rad_vdw
     5351            double precision dimension(100) :: surfres
     5352            integer :: ntyhb
     5353            integer dimension(100) :: ixtyhb
     5354            integer dimension(100) :: nutyhb
     5355            integer dimension(10,10) :: mmhb
     5356            character dimension(2600,4) :: nmat
     5357            integer :: lunlib
     5358            integer :: lunseq
     5359            integer :: lunchg
     5360            integer :: lunvar
     5361            integer :: lunrst
    47815362            logical dimension(800) :: isrfvr
    4782             real*8 dimension(500) :: pbrt
    4783             real*8 dimension(1000) :: vuvrrt
    4784             real*8 dimension(1000) :: dvvrrt
    4785             integer*4 dimension(2600) :: ityat
    4786             integer*4 dimension(2600) :: iowat
    4787             integer*4 dimension(2600) :: iyowat
    4788             integer*4 dimension(2600) :: nbdat
    4789             integer*4 dimension(3,2600) :: ibdat
    4790             integer*4 dimension(3,2600) :: iybdat
    4791             integer*4 dimension(2600) :: ixmsat
    4792             real*8 :: ehm
    4793             real*8 dimension(18) :: atpl
    4794             real*8 dimension(18) :: efel
    4795             real*8 dimension(18) :: emin
    4796             real*8 dimension(18) :: rmin
    4797             real*8 dimension(4,6) :: chb_s
    4798             real*8 dimension(4,6) :: ahb_s
    4799             real*8 dimension(19) :: e0to_s
    4800             real*8 dimension(19) :: sgto_s
    4801             real*8 dimension(19) :: rnto_s
    4802             real*8 :: eps_s
    4803             real*8 dimension(2000,3) :: spoint
     5363            double precision dimension(500) :: pbrt
     5364            double precision dimension(1000) :: vuvrrt
     5365            double precision dimension(1000) :: dvvrrt
     5366            integer dimension(2600) :: ityat
     5367            integer dimension(2600) :: iowat
     5368            integer dimension(2600) :: iyowat
     5369            integer dimension(2600) :: nbdat
     5370            integer dimension(3,2600) :: ibdat
     5371            integer dimension(3,2600) :: iybdat
     5372            integer dimension(2600) :: ixmsat
     5373            double precision :: ehm
     5374            double precision dimension(18) :: atpl
     5375            double precision dimension(18) :: efel
     5376            double precision dimension(18) :: emin
     5377            double precision dimension(18) :: rmin
     5378            double precision dimension(4,6) :: chb_s
     5379            double precision dimension(4,6) :: ahb_s
     5380            double precision dimension(19) :: e0to_s
     5381            double precision dimension(19) :: sgto_s
     5382            double precision dimension(19) :: rnto_s
     5383            double precision :: eps_s
     5384            double precision dimension(2000,3) :: spoint
    48045385            logical dimension(18) :: do_f
    48055386            logical dimension(18) :: ac_f
    … …  
    48095390            character*80 :: varfil
    48105391            character*80 :: rstfil
    4811             integer*4 :: ntlml
    4812             integer*4 dimension(10) :: irsml1
    4813             integer*4 dimension(10) :: irsml2
    4814             integer*4 dimension(10) :: ivrml1
    4815             integer*4 dimension(10) :: nvrml
    4816             integer*4 dimension(10) :: imsml1
    4817             integer*4 dimension(10) :: nmsml
    4818             integer*4 dimension(10) :: iadml1
    4819             integer*4 dimension(10) :: nadml
    4820             integer*4 dimension(3,10) :: ixrfpt
    4821             integer*4 dimension(2600) :: ixatp
    4822             integer*4 :: ireg
    4823             real*8 dimension(100) :: blath
    4824             real*8 dimension(100) :: baath
    4825             real*8 dimension(100) :: toath
    4826             real*8 dimension(100) :: cgath
    4827             integer*4 dimension(100,100) :: iref
    4828             integer*4 :: nci
     5392            integer :: ntlml
     5393            integer dimension(10) :: irsml1
     5394            integer dimension(10) :: irsml2
     5395            integer dimension(10) :: ivrml1
     5396            integer dimension(10) :: nvrml
     5397            integer dimension(10) :: imsml1
     5398            integer dimension(10) :: nmsml
     5399            integer dimension(10) :: iadml1
     5400            integer dimension(10) :: nadml
     5401            integer dimension(3,10) :: ixrfpt
     5402            integer dimension(2600) :: ixatp
     5403            integer :: ireg
     5404            double precision dimension(100) :: blath
     5405            double precision dimension(100) :: baath
     5406            double precision dimension(100) :: toath
     5407            double precision dimension(100) :: cgath
     5408            integer dimension(100,100) :: iref
     5409            integer :: nci
    48295410            logical :: flex
    48305411            logical :: tesgrd
    48315412            logical :: sh2
    48325413            logical :: epsd
    4833             integer*4 :: ientyp
    4834             real*8 :: rgyh
    4835             real*8 :: rgyp
    4836             integer*4 :: idloa
    4837             integer*4 :: idloz
    4838             integer*4 :: idupa
    4839             integer*4 :: idupz
     5414            integer :: ientyp
     5415            double precision :: rgyh
     5416            double precision :: rgyp
     5417            integer :: idloa
     5418            integer :: idloz
     5419            integer :: idupa
     5420            integer :: idupz
    48405421            integer :: myrank
    48415422            integer :: no
    … …  
    48445425            character dimension(100,4) :: nmath
    48455426            character dimension(100,3) :: nmvrh
    4846             integer*4 dimension(100) :: ityath
    4847             integer*4 dimension(100) :: iowath
    4848             integer*4 dimension(100) :: iyowath
    4849             integer*4 dimension(100) :: nbdath
    4850             integer*4 dimension(3,100) :: ibdath
    4851             integer*4 dimension(3,100) :: iybdath
    4852             integer*4 dimension(100) :: ityvrh
    4853             integer*4 dimension(100) :: iclvrh
    4854             integer*4 dimension(100) :: iatvrh
     5427            integer dimension(100) :: ityath
     5428            integer dimension(100) :: iowath
     5429            integer dimension(100) :: iyowath
     5430            integer dimension(100) :: nbdath
     5431            integer dimension(3,100) :: ibdath
     5432            integer dimension(3,100) :: iybdath
     5433            integer dimension(100) :: ityvrh
     5434            integer dimension(100) :: iclvrh
     5435            integer dimension(100) :: iatvrh
    48555436            character dimension(100,4) :: seq
    48565437            integer*4 :: nchp
    … …  
    48615442            integer*4 :: natp
    48625443            integer*4 dimension(10000) :: noatp
    4863             real*8 dimension(2600) :: rvdw
    4864             real*8 dimension(2600) :: sigma
    4865             real*8 dimension(2600,3) :: gradan
    4866             integer*4 dimension(18,18) :: ihbty
     5444            double precision dimension(2600) :: rvdw
     5445            double precision dimension(2600) :: sigma
     5446            double precision dimension(2600,3) :: gradan
     5447            integer dimension(18,18) :: ihbty
    48675448            character dimension(100) :: chnp
    48685449            character dimension(1000,3) :: rsnmp
    48695450            character dimension(1000,5) :: rsidp
    48705451            character dimension(10000,4) :: atnmp
    4871             integer*4 :: npnt
     5452            integer :: npnt
    48725453            character dimension(10,80) :: nmml
    4873             real*8 dimension(18,18) :: cij
    4874             real*8 dimension(18,18) :: aij
    4875             real*8 dimension(18,18) :: a14
    4876             real*8 dimension(18,18) :: chb
    4877             real*8 dimension(18,18) :: ahb
    4878             real*8 dimension(19) :: e0to
    4879             real*8 dimension(19) :: sgto
    4880             real*8 dimension(19) :: rnto
    4881             real*8 dimension(19) :: esnto
    4882             real*8 :: conv
    4883             real*8 :: plt
    4884             real*8 :: slp
    4885             real*8 :: cohb
     5454            double precision dimension(18,18) :: cij
     5455            double precision dimension(18,18) :: aij
     5456            double precision dimension(18,18) :: a14
     5457            double precision dimension(18,18) :: chb
     5458            double precision dimension(18,18) :: ahb
     5459            double precision dimension(19) :: e0to
     5460            double precision dimension(19) :: sgto
     5461            double precision dimension(19) :: rnto
     5462            double precision dimension(19) :: esnto
     5463            double precision :: conv
     5464            double precision :: plt
     5465            double precision :: slp
     5466            double precision :: cohb
    48865467            real*8 dimension(10000) :: xatp
    48875468            real*8 dimension(10000) :: yatp
    48885469            real*8 dimension(10000) :: zatp
    4889             integer*4 dimension(100) :: iatrs1
    4890             integer*4 dimension(100) :: iatrs2
    4891             integer*4 dimension(100) :: ixatrs
    4892             integer*4 dimension(100) :: ivrrs1
    4893             integer*4 dimension(100) :: nvrrs
    4894             integer*4 :: ntlrt
    4895             integer*4 :: ntlsu
    4896             integer*4 dimension(500) :: i1vrrt
    4897             integer*4 dimension(500) :: i2vrrt
    4898             integer*4 dimension(4800) :: iprtsu
    4899             integer*4 dimension(800) :: i1rtsu
    4900             integer*4 dimension(800) :: nrtsu
    4901             integer*4 dimension(800) :: i1vrsu
    4902             integer*4 dimension(800) :: i2vrsu
    4903             integer*4 dimension(800) :: ipvrsu
    4904             real*8 dimension(3,10) :: rfpt
    4905             real*8 dimension(6,10) :: gbpr
    4906             real*8 dimension(3,10) :: xrfax
    4907             real*8 dimension(3,10) :: yrfax
    4908             real*8 dimension(3,10) :: zrfax
     5470            integer dimension(100) :: iatrs1
     5471            integer dimension(100) :: iatrs2
     5472            integer dimension(100) :: ixatrs
     5473            integer dimension(100) :: ivrrs1
     5474            integer dimension(100) :: nvrrs
     5475            integer :: ntlrt
     5476            integer :: ntlsu
     5477            integer dimension(500) :: i1vrrt
     5478            integer dimension(500) :: i2vrrt
     5479            integer dimension(4800) :: iprtsu
     5480            integer dimension(800) :: i1rtsu
     5481            integer dimension(800) :: nrtsu
     5482            integer dimension(800) :: i1vrsu
     5483            integer dimension(800) :: i2vrsu
     5484            integer dimension(800) :: ipvrsu
     5485            double precision dimension(3,10) :: rfpt
     5486            double precision dimension(6,10) :: gbpr
     5487            double precision dimension(3,10) :: xrfax
     5488            double precision dimension(3,10) :: yrfax
     5489            double precision dimension(3,10) :: zrfax
    49095490            logical dimension(800) :: fxvr
    4910             real*8 :: eyel
    4911             real*8 :: eyvw
    4912             real*8 :: eyhb
    4913             real*8 :: eyvr
    4914             real*8 :: eysm
    4915             real*8 :: eysl
    4916             real*8 :: eyrg
    4917             real*8 :: eyslh
    4918             real*8 :: eyslp
    4919             real*8 :: eyab
    4920             real*8 :: eysmi
    4921             real*8 :: eyhbi
    4922             real*8 :: eyeli
    4923             real*8 :: eyvwi
    4924             real*8 dimension(800) :: gdeyvr
    4925             real*8 dimension(800) :: gdeyrg
    4926             real*8 dimension(800) :: gdeysl
    4927             real*8 dimension(60) :: gdeygb
    4928             real*8 :: wtey
    4929             real*8 :: wtrg
    4930             integer*4 dimension(800) :: iatvr
    4931             integer*4 dimension(800) :: ityvr
    4932             integer*4 dimension(800) :: iclvr
    4933             integer*4 dimension(800) :: iorvr
    4934             integer*4 dimension(800) :: imsvr1
    4935             integer*4 dimension(800) :: imsvr2
    4936             integer*4 dimension(2400) :: latms1
    4937             integer*4 dimension(2400) :: latms2
    4938             integer*4 dimension(800) :: iadvr1
    4939             integer*4 dimension(800) :: iadvr2
    4940             integer*4 dimension(800) :: ladvr
    4941             integer*4 dimension(800) :: idvr
     5491            double precision :: eyel
     5492            double precision :: eyvw
     5493            double precision :: eyhb
     5494            double precision :: eyvr
     5495            double precision :: eysm
     5496            double precision :: eysl
     5497            double precision :: eyrg
     5498            double precision :: eyslh
     5499            double precision :: eyslp
     5500            double precision :: eyab
     5501            double precision :: eysmi
     5502            double precision :: eyhbi
     5503            double precision :: eyeli
     5504            double precision :: eyvwi
     5505            double precision dimension(800) :: gdeyvr
     5506            double precision dimension(800) :: gdeyrg
     5507            double precision dimension(800) :: gdeysl
     5508            double precision dimension(60) :: gdeygb
     5509            double precision :: wtey
     5510            double precision :: wtrg
     5511            integer dimension(800) :: iatvr
     5512            integer dimension(800) :: ityvr
     5513            integer dimension(800) :: iclvr
     5514            integer dimension(800) :: iorvr
     5515            integer dimension(800) :: imsvr1
     5516            integer dimension(800) :: imsvr2
     5517            integer dimension(2400) :: latms1
     5518            integer dimension(2400) :: latms2
     5519            integer dimension(800) :: iadvr1
     5520            integer dimension(800) :: iadvr2
     5521            integer dimension(800) :: ladvr
     5522            integer dimension(800) :: idvr
    49425523            integer :: enysolct
    4943             character dimension(3,800) :: nmvr
    4944             real*8 :: boxsize
     5524            character dimension(800,3) :: nmvr
     5525            double precision :: boxsize
    49455526            integer :: seed
    4946             character*100 :: zimm
    4947             integer*4 :: itysol
     5527            character*mxrs :: zimm
     5528            integer :: itysol
    49485529            logical :: isolscl
    4949             real*8 dimension(100) :: rsstrg
     5530            double precision dimension(100) :: rsstrg
    49505531            character dimension(35,4) :: rsnmcd
    49515532            character dimension(35) :: onltcd
    … …  
    49535534            integer :: upchswitch
    49545535            double precision :: bgsprob
    4955             integer*4 dimension(10) :: nvwml
    4956             integer*4 dimension(10) :: ivwml1
    4957             integer*4 dimension(10) :: n14ml
    4958             integer*4 dimension(10) :: i14ml1
    4959             integer*4 dimension(2600) :: ivwat1
    4960             integer*4 dimension(2600) :: ivwat2
    4961             integer*4 dimension(2600) :: i14at1
    4962             integer*4 dimension(2600) :: i14at2
    4963             integer*4 dimension(10400) :: lvwat1
    4964             integer*4 dimension(10400) :: lvwat2
    4965             integer*4 dimension(10400) :: l14at
    4966             integer*4 dimension(10400) :: ixatvw
    4967             integer*4 dimension(10400) :: ixat14
    4968             real*8 dimension(800) :: olvlvr
    4969             real*8 dimension(800) :: vlvr
    4970             real*8 dimension(800) :: axvr
    4971             real*8 :: beta
    4972             real*8 dimension(18,18) :: c_f
    4973             real*8 dimension(18,18) :: a_f
    4974             real*8 dimension(4,6) :: chb_f
    4975             real*8 dimension(4,6) :: ahb_f
    4976             real*8 dimension(19) :: e0to_f
    4977             real*8 dimension(19) :: sgto_f
    4978             real*8 dimension(19) :: rnto_f
    4979             real*8 :: plt_f
    4980             real*8 :: slp_f
    4981             real*8 :: cohb_f
     5536            integer dimension(10) :: nvwml
     5537            integer dimension(10) :: ivwml1
     5538            integer dimension(10) :: n14ml
     5539            integer dimension(10) :: i14ml1
     5540            integer dimension(2600) :: ivwat1
     5541            integer dimension(2600) :: ivwat2
     5542            integer dimension(2600) :: i14at1
     5543            integer dimension(2600) :: i14at2
     5544            integer dimension(10400) :: lvwat1
     5545            integer dimension(10400) :: lvwat2
     5546            integer dimension(10400) :: l14at
     5547            integer dimension(10400) :: ixatvw
     5548            integer dimension(10400) :: ixat14
     5549            double precision dimension(800) :: olvlvr
     5550            double precision dimension(800) :: vlvr
     5551            double precision dimension(800) :: axvr
     5552            double precision :: beta
     5553            double precision dimension(18,18) :: c_f
     5554            double precision dimension(18,18) :: a_f
     5555            double precision dimension(4,6) :: chb_f
     5556            double precision dimension(4,6) :: ahb_f
     5557            double precision dimension(19) :: e0to_f
     5558            double precision dimension(19) :: sgto_f
     5559            double precision dimension(19) :: rnto_f
     5560            double precision :: plt_f
     5561            double precision :: slp_f
     5562            double precision :: cohb_f
    49825563            common /v_sol/ vdvol,asa,asap,asah
    49835564            common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    50515632        end block data twbloks
    50525633        subroutine init_lund ! in :smmp:bgs.f
    5053             real*8 :: vdvol
    5054             real*8 :: asa
    5055             real*8 :: asap
    5056             real*8 :: asah
     5634            double precision :: vdvol
     5635            double precision :: asa
     5636            double precision :: asap
     5637            double precision :: asah
    50575638            integer :: bgsnvar
    50585639            integer dimension(8) :: iph
    5059             real*8 dimension(2600) :: cgat
    5060             real*8 dimension(2600) :: xbaat
    5061             real*8 dimension(2600) :: ybaat
    5062             real*8 dimension(2600) :: zbaat
    5063             real*8 dimension(2600) :: baat
    5064             real*8 dimension(2600) :: snbaat
    5065             real*8 dimension(2600) :: csbaat
    5066             real*8 dimension(2600) :: xtoat
    5067             real*8 dimension(2600) :: ytoat
    5068             real*8 dimension(2600) :: ztoat
    5069             real*8 dimension(2600) :: toat
    5070             real*8 dimension(2600) :: sntoat
    5071             real*8 dimension(2600) :: cstoat
    5072             real*8 dimension(2600) :: blat
    5073             real*8 dimension(2602) :: xat
    5074             real*8 dimension(2602) :: yat
    5075             real*8 dimension(2602) :: zat
    5076             integer*4 dimension(100,100) :: ijcont
    5077             integer*4 dimension(100) :: ind_alf
     5640            integer dimension(2600) :: cgat
     5641            double precision dimension(2600) :: xbaat
     5642            double precision dimension(2600) :: ybaat
     5643            double precision dimension(2600) :: zbaat
     5644            double precision dimension(2600) :: baat
     5645            double precision dimension(2600) :: snbaat
     5646            double precision dimension(2600) :: csbaat
     5647            double precision dimension(2600) :: xtoat
     5648            double precision dimension(2600) :: ytoat
     5649            double precision dimension(2600) :: ztoat
     5650            double precision dimension(2600) :: toat
     5651            double precision dimension(2600) :: sntoat
     5652            double precision dimension(2600) :: cstoat
     5653            double precision dimension(2600) :: blat
     5654            double precision dimension(2602) :: xat
     5655            double precision dimension(2602) :: yat
     5656            double precision dimension(2602) :: zat
     5657            integer dimension(100,100) :: ijcont
     5658            integer dimension(100) :: ind_alf
    50785659            logical dimension(18) :: do_s
    50795660            logical dimension(18) :: ac_s
    50805661            character dimension(500,4) :: nmrt
    50815662            character dimension(1000,3) :: nmvrrt
    5082             integer*4 :: nvr
    5083             real*8 dimension(9,18) :: coef_sl
    5084             real*8 dimension(9,18) :: rad_vdw
    5085             real*8 dimension(100) :: surfres
    5086             integer*4 :: ntyhb
    5087             integer*4 dimension(100) :: ixtyhb
    5088             integer*4 dimension(100) :: nutyhb
    5089             integer*4 dimension(10,10) :: mmhb
    5090             character dimension(4,2600) :: nmat
    5091             integer*4 :: lunlib
    5092             integer*4 :: lunseq
    5093             integer*4 :: lunchg
    5094             integer*4 :: lunvar
    5095             integer*4 :: lunrst
     5663            integer :: nvr
     5664            double precision dimension(9,18) :: coef_sl
     5665            double precision dimension(9,18) :: rad_vdw
     5666            double precision dimension(100) :: surfres
     5667            integer :: ntyhb
     5668            integer dimension(100) :: ixtyhb
     5669            integer dimension(100) :: nutyhb
     5670            integer dimension(10,10) :: mmhb
     5671            character dimension(2600,4) :: nmat
     5672            integer :: lunlib
     5673            integer :: lunseq
     5674            integer :: lunchg
     5675            integer :: lunvar
     5676            integer :: lunrst
    50965677            logical dimension(800) :: isrfvr
    5097             real*8 dimension(500) :: pbrt
    5098             real*8 dimension(1000) :: vuvrrt
    5099             real*8 dimension(1000) :: dvvrrt
    5100             integer*4 dimension(2600) :: ityat
    5101             integer*4 dimension(2600) :: iowat
    5102             integer*4 dimension(2600) :: iyowat
    5103             integer*4 dimension(2600) :: nbdat
    5104             integer*4 dimension(3,2600) :: ibdat
    5105             integer*4 dimension(3,2600) :: iybdat
    5106             integer*4 dimension(2600) :: ixmsat
    5107             real*8 :: ehm
    5108             real*8 dimension(18) :: atpl
    5109             real*8 dimension(18) :: efel
    5110             real*8 dimension(18) :: emin
    5111             real*8 dimension(18) :: rmin
    5112             real*8 dimension(4,6) :: chb_s
    5113             real*8 dimension(4,6) :: ahb_s
    5114             real*8 dimension(19) :: e0to_s
    5115             real*8 dimension(19) :: sgto_s
    5116             real*8 dimension(19) :: rnto_s
    5117             real*8 :: eps_s
    5118             real*8 dimension(2000,3) :: spoint
     5678            double precision dimension(500) :: pbrt
     5679            double precision dimension(1000) :: vuvrrt
     5680            double precision dimension(1000) :: dvvrrt
     5681            integer dimension(2600) :: ityat
     5682            integer dimension(2600) :: iowat
     5683            integer dimension(2600) :: iyowat
     5684            integer dimension(2600) :: nbdat
     5685            integer dimension(3,2600) :: ibdat
     5686            integer dimension(3,2600) :: iybdat
     5687            integer dimension(2600) :: ixmsat
     5688            double precision :: ehm
     5689            double precision dimension(18) :: atpl
     5690            double precision dimension(18) :: efel
     5691            double precision dimension(18) :: emin
     5692            double precision dimension(18) :: rmin
     5693            double precision dimension(4,6) :: chb_s
     5694            double precision dimension(4,6) :: ahb_s
     5695            double precision dimension(19) :: e0to_s
     5696            double precision dimension(19) :: sgto_s
     5697            double precision dimension(19) :: rnto_s
     5698            double precision :: eps_s
     5699            double precision dimension(2000,3) :: spoint
    51195700            logical dimension(18) :: do_f
    51205701            logical dimension(18) :: ac_f
    … …  
    51245705            character*80 :: varfil
    51255706            character*80 :: rstfil
    5126             integer*4 :: ntlml
    5127             integer*4 dimension(10) :: irsml1
    5128             integer*4 dimension(10) :: irsml2
    5129             integer*4 dimension(10) :: ivrml1
    5130             integer*4 dimension(10) :: nvrml
    5131             integer*4 dimension(10) :: imsml1
    5132             integer*4 dimension(10) :: nmsml
    5133             integer*4 dimension(10) :: iadml1
    5134             integer*4 dimension(10) :: nadml
    5135             integer*4 dimension(3,10) :: ixrfpt
    5136             integer*4 dimension(2600) :: ixatp
    5137             integer*4 :: ireg
    5138             real*8 dimension(100) :: blath
    5139             real*8 dimension(100) :: baath
    5140             real*8 dimension(100) :: toath
    5141             real*8 dimension(100) :: cgath
    5142             integer*4 dimension(100,100) :: iref
    5143             integer*4 :: nci
     5707            integer :: ntlml
     5708            integer dimension(10) :: irsml1
     5709            integer dimension(10) :: irsml2
     5710            integer dimension(10) :: ivrml1
     5711            integer dimension(10) :: nvrml
     5712            integer dimension(10) :: imsml1
     5713            integer dimension(10) :: nmsml
     5714            integer dimension(10) :: iadml1
     5715            integer dimension(10) :: nadml
     5716            integer dimension(3,10) :: ixrfpt
     5717            integer dimension(2600) :: ixatp
     5718            integer :: ireg
     5719            double precision dimension(100) :: blath
     5720            double precision dimension(100) :: baath
     5721            double precision dimension(100) :: toath
     5722            double precision dimension(100) :: cgath
     5723            integer dimension(100,100) :: iref
     5724            integer :: nci
    51445725            logical :: flex
    51455726            logical :: tesgrd
    51465727            logical :: sh2
    51475728            logical :: epsd
    5148             integer*4 :: ientyp
    5149             real*8 :: rgyh
    5150             real*8 :: rgyp
     5729            integer :: ientyp
     5730            double precision :: rgyh
     5731            double precision :: rgyp
    51515732            double precision :: abgs
    51525733            double precision :: bbgs
    51535734            double precision dimension(8) :: dph
    51545735            integer dimension(100) :: bgsvar
    5155             integer*4 :: idloa
    5156             integer*4 :: idloz
    5157             integer*4 :: idupa
    5158             integer*4 :: idupz
     5736            integer :: idloa
     5737            integer :: idloz
     5738            integer :: idupa
     5739            integer :: idupz
    51595740            integer :: myrank
    51605741            integer :: no
    … …  
    51635744            character dimension(100,4) :: nmath
    51645745            character dimension(100,3) :: nmvrh
    5165             integer*4 dimension(100) :: ityath
    5166             integer*4 dimension(100) :: iowath
    5167             integer*4 dimension(100) :: iyowath
    5168             integer*4 dimension(100) :: nbdath
    5169             integer*4 dimension(3,100) :: ibdath
    5170             integer*4 dimension(3,100) :: iybdath
    5171             integer*4 dimension(100) :: ityvrh
    5172             integer*4 dimension(100) :: iclvrh
    5173             integer*4 dimension(100) :: iatvrh
     5746            integer dimension(100) :: ityath
     5747            integer dimension(100) :: iowath
     5748            integer dimension(100) :: iyowath
     5749            integer dimension(100) :: nbdath
     5750            integer dimension(3,100) :: ibdath
     5751            integer dimension(3,100) :: iybdath
     5752            integer dimension(100) :: ityvrh
     5753            integer dimension(100) :: iclvrh
     5754            integer dimension(100) :: iatvrh
    51745755            character dimension(100,4) :: seq
    5175             real*8 dimension(2600) :: rvdw
    5176             real*8 dimension(2600) :: sigma
    5177             real*8 dimension(2600,3) :: gradan
    5178             integer*4 dimension(18,18) :: ihbty
     5756            double precision dimension(2600) :: rvdw
     5757            double precision dimension(2600) :: sigma
     5758            double precision dimension(2600,3) :: gradan
     5759            integer dimension(18,18) :: ihbty
    51795760            double precision :: kbias
    51805761            double precision :: epshb1
    … …  
    51935774            integer*4 dimension(100,6) :: ihpat
    51945775            integer*4 dimension(100) :: nhpat
    5195             double precision dimension(3 * 3) :: hpstrg
     5776            double precision dimension(3 * nhptyp) :: hpstrg
    51965777            double precision :: exvk
    51975778            double precision :: exvcut
    51985779            double precision :: exvcut2
    5199             integer*4 dimension(40 + 41,2600) :: matcon
     5780            integer*4 dimension(mxconr + 41,2600) :: matcon
    52005781            double precision dimension(18) :: sigsa
    52015782            double precision dimension(18,18) :: sig2lcp
    … …  
    52125793            double precision dimension(18,18) :: asaexv
    52135794            double precision dimension(18,18) :: bsaexv
    5214             integer*4 :: npnt
     5795            integer :: npnt
    52155796            character dimension(10,80) :: nmml
    5216             real*8 dimension(18,18) :: cij
    5217             real*8 dimension(18,18) :: aij
    5218             real*8 dimension(18,18) :: a14
    5219             real*8 dimension(18,18) :: chb
    5220             real*8 dimension(18,18) :: ahb
    5221             real*8 dimension(19) :: e0to
    5222             real*8 dimension(19) :: sgto
    5223             real*8 dimension(19) :: rnto
    5224             real*8 dimension(19) :: esnto
    5225             real*8 :: conv
    5226             real*8 :: plt
    5227             real*8 :: slp
    5228             real*8 :: cohb
    5229             integer*4 dimension(100) :: iatrs1
    5230             integer*4 dimension(100) :: iatrs2
    5231             integer*4 dimension(100) :: ixatrs
    5232             integer*4 dimension(100) :: ivrrs1
    5233             integer*4 dimension(100) :: nvrrs
    5234             integer*4 :: ntlrt
    5235             integer*4 :: ntlsu
    5236             integer*4 dimension(500) :: i1vrrt
    5237             integer*4 dimension(500) :: i2vrrt
    5238             integer*4 dimension(4800) :: iprtsu
    5239             integer*4 dimension(800) :: i1rtsu
    5240             integer*4 dimension(800) :: nrtsu
    5241             integer*4 dimension(800) :: i1vrsu
    5242             integer*4 dimension(800) :: i2vrsu
    5243             integer*4 dimension(800) :: ipvrsu
    5244             real*8 dimension(3,10) :: rfpt
    5245             real*8 dimension(6,10) :: gbpr
    5246             real*8 dimension(3,10) :: xrfax
    5247             real*8 dimension(3,10) :: yrfax
    5248             real*8 dimension(3,10) :: zrfax
     5797            double precision dimension(18,18) :: cij
     5798            double precision dimension(18,18) :: aij
     5799            double precision dimension(18,18) :: a14
     5800            double precision dimension(18,18) :: chb
     5801            double precision dimension(18,18) :: ahb
     5802            double precision dimension(19) :: e0to
     5803            double precision dimension(19) :: sgto
     5804            double precision dimension(19) :: rnto
     5805            double precision dimension(19) :: esnto
     5806            double precision :: conv
     5807            double precision :: plt
     5808            double precision :: slp
     5809            double precision :: cohb
     5810            integer dimension(100) :: iatrs1
     5811            integer dimension(100) :: iatrs2
     5812            integer dimension(100) :: ixatrs
     5813            integer dimension(100) :: ivrrs1
     5814            integer dimension(100) :: nvrrs
     5815            integer :: ntlrt
     5816            integer :: ntlsu
     5817            integer dimension(500) :: i1vrrt
     5818            integer dimension(500) :: i2vrrt
     5819            integer dimension(4800) :: iprtsu
     5820            integer dimension(800) :: i1rtsu
     5821            integer dimension(800) :: nrtsu
     5822            integer dimension(800) :: i1vrsu
     5823            integer dimension(800) :: i2vrsu
     5824            integer dimension(800) :: ipvrsu
     5825            double precision dimension(3,10) :: rfpt
     5826            double precision dimension(6,10) :: gbpr
     5827            double precision dimension(3,10) :: xrfax
     5828            double precision dimension(3,10) :: yrfax
     5829            double precision dimension(3,10) :: zrfax
    52495830            integer*4 dimension(100) :: in
    52505831            integer*4 dimension(100) :: ica
    … …  
    52545835            integer*4 dimension(100) :: ipsi
    52555836            logical dimension(800) :: fxvr
    5256             real*8 :: eyel
    5257             real*8 :: eyvw
    5258             real*8 :: eyhb
    5259             real*8 :: eyvr
    5260             real*8 :: eysm
    5261             real*8 :: eysl
    5262             real*8 :: eyrg
    5263             real*8 :: eyslh
    5264             real*8 :: eyslp
    5265             real*8 :: eyab
    5266             real*8 :: eysmi
    5267             real*8 :: eyhbi
    5268             real*8 :: eyeli
    5269             real*8 :: eyvwi
    5270             real*8 dimension(800) :: gdeyvr
    5271             real*8 dimension(800) :: gdeyrg
    5272             real*8 dimension(800) :: gdeysl
    5273             real*8 dimension(60) :: gdeygb
    5274             real*8 :: wtey
    5275             real*8 :: wtrg
    5276             integer*4 dimension(800) :: iatvr
    5277             integer*4 dimension(800) :: ityvr
    5278             integer*4 dimension(800) :: iclvr
    5279             integer*4 dimension(800) :: iorvr
    5280             integer*4 dimension(800) :: imsvr1
    5281             integer*4 dimension(800) :: imsvr2
    5282             integer*4 dimension(2400) :: latms1
    5283             integer*4 dimension(2400) :: latms2
    5284             integer*4 dimension(800) :: iadvr1
    5285             integer*4 dimension(800) :: iadvr2
    5286             integer*4 dimension(800) :: ladvr
    5287             integer*4 dimension(800) :: idvr
     5837            double precision :: eyel
     5838            double precision :: eyvw
     5839            double precision :: eyhb
     5840            double precision :: eyvr
     5841            double precision :: eysm
     5842            double precision :: eysl
     5843            double precision :: eyrg
     5844            double precision :: eyslh
     5845            double precision :: eyslp
     5846            double precision :: eyab
     5847            double precision :: eysmi
     5848            double precision :: eyhbi
     5849            double precision :: eyeli
     5850            double precision :: eyvwi
     5851            double precision dimension(800) :: gdeyvr
     5852            double precision dimension(800) :: gdeyrg
     5853            double precision dimension(800) :: gdeysl
     5854            double precision dimension(60) :: gdeygb
     5855            double precision :: wtey
     5856            double precision :: wtrg
     5857            integer dimension(800) :: iatvr
     5858            integer dimension(800) :: ityvr
     5859            integer dimension(800) :: iclvr
     5860            integer dimension(800) :: iorvr
     5861            integer dimension(800) :: imsvr1
     5862            integer dimension(800) :: imsvr2
     5863            integer dimension(2400) :: latms1
     5864            integer dimension(2400) :: latms2
     5865            integer dimension(800) :: iadvr1
     5866            integer dimension(800) :: iadvr2
     5867            integer dimension(800) :: ladvr
     5868            integer dimension(800) :: idvr
    52885869            integer :: enysolct
    5289             character dimension(3,800) :: nmvr
    5290             real*8 :: boxsize
     5870            character dimension(800,3) :: nmvr
     5871            double precision :: boxsize
    52915872            integer :: seed
    5292             character*100 :: zimm
    5293             integer*4 :: itysol
     5873            character*mxrs :: zimm
     5874            integer :: itysol
    52945875            logical :: isolscl
    5295             real*8 dimension(100) :: rsstrg
     5876            double precision dimension(100) :: rsstrg
    52965877            character dimension(35,4) :: rsnmcd
    52975878            character dimension(35) :: onltcd
    … …  
    52995880            integer :: upchswitch
    53005881            double precision :: bgsprob
    5301             integer*4 dimension(10) :: nvwml
    5302             integer*4 dimension(10) :: ivwml1
    5303             integer*4 dimension(10) :: n14ml
    5304             integer*4 dimension(10) :: i14ml1
    5305             integer*4 dimension(2600) :: ivwat1
    5306             integer*4 dimension(2600) :: ivwat2
    5307             integer*4 dimension(2600) :: i14at1
    5308             integer*4 dimension(2600) :: i14at2
    5309             integer*4 dimension(10400) :: lvwat1
    5310             integer*4 dimension(10400) :: lvwat2
    5311             integer*4 dimension(10400) :: l14at
    5312             integer*4 dimension(10400) :: ixatvw
    5313             integer*4 dimension(10400) :: ixat14
    5314             real*8 dimension(800) :: olvlvr
    5315             real*8 dimension(800) :: vlvr
    5316             real*8 dimension(800) :: axvr
    5317             real*8 :: beta
    5318             real*8 dimension(18,18) :: c_f
    5319             real*8 dimension(18,18) :: a_f
    5320             real*8 dimension(4,6) :: chb_f
    5321             real*8 dimension(4,6) :: ahb_f
    5322             real*8 dimension(19) :: e0to_f
    5323             real*8 dimension(19) :: sgto_f
    5324             real*8 dimension(19) :: rnto_f
    5325             real*8 :: plt_f
    5326             real*8 :: slp_f
    5327             real*8 :: cohb_f
     5882            integer dimension(10) :: nvwml
     5883            integer dimension(10) :: ivwml1
     5884            integer dimension(10) :: n14ml
     5885            integer dimension(10) :: i14ml1
     5886            integer dimension(2600) :: ivwat1
     5887            integer dimension(2600) :: ivwat2
     5888            integer dimension(2600) :: i14at1
     5889            integer dimension(2600) :: i14at2
     5890            integer dimension(10400) :: lvwat1
     5891            integer dimension(10400) :: lvwat2
     5892            integer dimension(10400) :: l14at
     5893            integer dimension(10400) :: ixatvw
     5894            integer dimension(10400) :: ixat14
     5895            double precision dimension(800) :: olvlvr
     5896            double precision dimension(800) :: vlvr
     5897            double precision dimension(800) :: axvr
     5898            double precision :: beta
     5899            double precision dimension(18,18) :: c_f
     5900            double precision dimension(18,18) :: a_f
     5901            double precision dimension(4,6) :: chb_f
     5902            double precision dimension(4,6) :: ahb_f
     5903            double precision dimension(19) :: e0to_f
     5904            double precision dimension(19) :: sgto_f
     5905            double precision dimension(19) :: rnto_f
     5906            double precision :: plt_f
     5907            double precision :: slp_f
     5908            double precision :: cohb_f
    53285909            common /v_sol/ vdvol,asa,asap,asah
    53295910            common /bgs_i/ bgsnvar,iph
    … …  
    53995980                real*8 intent(in) :: binwidth
    54005981                logical intent(in) :: l_iter
    5401                 real*8 :: vdvol
    5402                 real*8 :: asa
    5403                 real*8 :: asap
    5404                 real*8 :: asah
    5405                 real*8 dimension(2600) :: cgat
    5406                 real*8 dimension(2600) :: xbaat
    5407                 real*8 dimension(2600) :: ybaat
    5408                 real*8 dimension(2600) :: zbaat
    5409                 real*8 dimension(2600) :: baat
    5410                 real*8 dimension(2600) :: snbaat
    5411                 real*8 dimension(2600) :: csbaat
    5412                 real*8 dimension(2600) :: xtoat
    5413                 real*8 dimension(2600) :: ytoat
    5414                 real*8 dimension(2600) :: ztoat
    5415                 real*8 dimension(2600) :: toat
    5416                 real*8 dimension(2600) :: sntoat
    5417                 real*8 dimension(2600) :: cstoat
    5418                 real*8 dimension(2600) :: blat
    5419                 real*8 dimension(2602) :: xat
    5420                 real*8 dimension(2602) :: yat
    5421                 real*8 dimension(2602) :: zat
    5422                 integer*4 dimension(100,100) :: ijcont
    5423                 integer*4 dimension(100) :: ind_alf
     5982                double precision :: vdvol
     5983                double precision :: asa
     5984                double precision :: asap
     5985                double precision :: asah
     5986                integer dimension(2600) :: cgat
     5987                double precision dimension(2600) :: xbaat
     5988                double precision dimension(2600) :: ybaat
     5989                double precision dimension(2600) :: zbaat
     5990                double precision dimension(2600) :: baat
     5991                double precision dimension(2600) :: snbaat
     5992                double precision dimension(2600) :: csbaat
     5993                double precision dimension(2600) :: xtoat
     5994                double precision dimension(2600) :: ytoat
     5995                double precision dimension(2600) :: ztoat
     5996                double precision dimension(2600) :: toat
     5997                double precision dimension(2600) :: sntoat
     5998                double precision dimension(2600) :: cstoat
     5999                double precision dimension(2600) :: blat
     6000                double precision dimension(2602) :: xat
     6001                double precision dimension(2602) :: yat
     6002                double precision dimension(2602) :: zat
     6003                integer dimension(100,100) :: ijcont
     6004                integer dimension(100) :: ind_alf
    54246005                logical dimension(18) :: do_s
    54256006                logical dimension(18) :: ac_s
    54266007                character dimension(500,4) :: nmrt
    54276008                character dimension(1000,3) :: nmvrrt
    5428                 integer*4 :: nvr
    5429                 real*8 dimension(9,18) :: coef_sl
    5430                 real*8 dimension(9,18) :: rad_vdw
    5431                 real*8 dimension(100) :: surfres
    5432                 integer*4 :: ntyhb
    5433                 integer*4 dimension(100) :: ixtyhb
    5434                 integer*4 dimension(100) :: nutyhb
    5435                 integer*4 dimension(10,10) :: mmhb
    5436                 character dimension(4,2600) :: nmat
    5437                 integer*4 :: lunlib
    5438                 integer*4 :: lunseq
    5439                 integer*4 :: lunchg
    5440                 integer*4 :: lunvar
    5441                 integer*4 :: lunrst
     6009                integer :: nvr
     6010                double precision dimension(9,18) :: coef_sl
     6011                double precision dimension(9,18) :: rad_vdw
     6012                double precision dimension(100) :: surfres
     6013                integer :: ntyhb
     6014                integer dimension(100) :: ixtyhb
     6015                integer dimension(100) :: nutyhb
     6016                integer dimension(10,10) :: mmhb
     6017                character dimension(2600,4) :: nmat
     6018                integer :: lunlib
     6019                integer :: lunseq
     6020                integer :: lunchg
     6021                integer :: lunvar
     6022                integer :: lunrst
    54426023                logical dimension(800) :: isrfvr
    5443                 real*8 dimension(500) :: pbrt
    5444                 real*8 dimension(1000) :: vuvrrt
    5445                 real*8 dimension(1000) :: dvvrrt
    5446                 integer*4 dimension(2600) :: ityat
    5447                 integer*4 dimension(2600) :: iowat
    5448                 integer*4 dimension(2600) :: iyowat
    5449                 integer*4 dimension(2600) :: nbdat
    5450                 integer*4 dimension(3,2600) :: ibdat
    5451                 integer*4 dimension(3,2600) :: iybdat
    5452                 integer*4 dimension(2600) :: ixmsat
    5453                 real*8 :: ehm
    5454                 real*8 dimension(18) :: atpl
    5455                 real*8 dimension(18) :: efel
    5456                 real*8 dimension(18) :: emin
    5457                 real*8 dimension(18) :: rmin
    5458                 real*8 dimension(4,6) :: chb_s
    5459                 real*8 dimension(4,6) :: ahb_s
    5460                 real*8 dimension(19) :: e0to_s
    5461                 real*8 dimension(19) :: sgto_s
    5462                 real*8 dimension(19) :: rnto_s
    5463                 real*8 :: eps_s
    5464                 real*8 dimension(2000,3) :: spoint
     6024                double precision dimension(500) :: pbrt
     6025                double precision dimension(1000) :: vuvrrt
     6026                double precision dimension(1000) :: dvvrrt
     6027                integer dimension(2600) :: ityat
     6028                integer dimension(2600) :: iowat
     6029                integer dimension(2600) :: iyowat
     6030                integer dimension(2600) :: nbdat
     6031                integer dimension(3,2600) :: ibdat
     6032                integer dimension(3,2600) :: iybdat
     6033                integer dimension(2600) :: ixmsat
     6034                double precision :: ehm
     6035                double precision dimension(18) :: atpl
     6036                double precision dimension(18) :: efel
     6037                double precision dimension(18) :: emin
     6038                double precision dimension(18) :: rmin
     6039                double precision dimension(4,6) :: chb_s
     6040                double precision dimension(4,6) :: ahb_s
     6041                double precision dimension(19) :: e0to_s
     6042                double precision dimension(19) :: sgto_s
     6043                double precision dimension(19) :: rnto_s
     6044                double precision :: eps_s
     6045                double precision dimension(2000,3) :: spoint
    54656046                logical dimension(18) :: do_f
    54666047                logical dimension(18) :: ac_f
    … …  
    54706051                character*80 :: varfil
    54716052                character*80 :: rstfil
    5472                 integer*4 :: ntlml
    5473                 integer*4 dimension(10) :: irsml1
    5474                 integer*4 dimension(10) :: irsml2
    5475                 integer*4 dimension(10) :: ivrml1
    5476                 integer*4 dimension(10) :: nvrml
    5477                 integer*4 dimension(10) :: imsml1
    5478                 integer*4 dimension(10) :: nmsml
    5479                 integer*4 dimension(10) :: iadml1
    5480                 integer*4 dimension(10) :: nadml
    5481                 integer*4 dimension(3,10) :: ixrfpt
    5482                 integer*4 dimension(2600) :: ixatp
    5483                 integer*4 :: ireg
    5484                 real*8 dimension(100) :: blath
    5485                 real*8 dimension(100) :: baath
    5486                 real*8 dimension(100) :: toath
    5487                 real*8 dimension(100) :: cgath
    5488                 integer*4 dimension(100,100) :: iref
    5489                 integer*4 :: nci
     6053                integer :: ntlml
     6054                integer dimension(10) :: irsml1
     6055                integer dimension(10) :: irsml2
     6056                integer dimension(10) :: ivrml1
     6057                integer dimension(10) :: nvrml
     6058                integer dimension(10) :: imsml1
     6059                integer dimension(10) :: nmsml
     6060                integer dimension(10) :: iadml1
     6061                integer dimension(10) :: nadml
     6062                integer dimension(3,10) :: ixrfpt
     6063                integer dimension(2600) :: ixatp
     6064                integer :: ireg
     6065                double precision dimension(100) :: blath
     6066                double precision dimension(100) :: baath
     6067                double precision dimension(100) :: toath
     6068                double precision dimension(100) :: cgath
     6069                integer dimension(100,100) :: iref
     6070                integer :: nci
    54906071                logical :: flex
    54916072                logical :: tesgrd
    54926073                logical :: sh2
    54936074                logical :: epsd
    5494                 integer*4 :: ientyp
    5495                 real*8 :: rgyh
    5496                 real*8 :: rgyp
    5497                 integer*4 :: idloa
    5498                 integer*4 :: idloz
    5499                 integer*4 :: idupa
    5500                 integer*4 :: idupz
     6075                integer :: ientyp
     6076                double precision :: rgyh
     6077                double precision :: rgyp
     6078                integer :: idloa
     6079                integer :: idloz
     6080                integer :: idupa
     6081                integer :: idupz
    55016082                integer :: myrank
    55026083                integer :: no
    … …  
    55056086                character dimension(100,4) :: nmath
    55066087                character dimension(100,3) :: nmvrh
    5507                 integer*4 dimension(100) :: ityath
    5508                 integer*4 dimension(100) :: iowath
    5509                 integer*4 dimension(100) :: iyowath
    5510                 integer*4 dimension(100) :: nbdath
    5511                 integer*4 dimension(3,100) :: ibdath
    5512                 integer*4 dimension(3,100) :: iybdath
    5513                 integer*4 dimension(100) :: ityvrh
    5514                 integer*4 dimension(100) :: iclvrh
    5515                 integer*4 dimension(100) :: iatvrh
     6088                integer dimension(100) :: ityath
     6089                integer dimension(100) :: iowath
     6090                integer dimension(100) :: iyowath
     6091                integer dimension(100) :: nbdath
     6092                integer dimension(3,100) :: ibdath
     6093                integer dimension(3,100) :: iybdath
     6094                integer dimension(100) :: ityvrh
     6095                integer dimension(100) :: iclvrh
     6096                integer dimension(100) :: iatvrh
    55166097                character dimension(100,4) :: seq
    5517                 real*8 dimension(2600) :: rvdw
    5518                 real*8 dimension(2600) :: sigma
    5519                 real*8 dimension(2600,3) :: gradan
    5520                 integer*4 dimension(18,18) :: ihbty
    5521                 integer*4 :: npnt
     6098                double precision dimension(2600) :: rvdw
     6099                double precision dimension(2600) :: sigma
     6100                double precision dimension(2600,3) :: gradan
     6101                integer dimension(18,18) :: ihbty
     6102                integer :: npnt
    55226103                character dimension(10,80) :: nmml
    5523                 real*8 dimension(18,18) :: cij
    5524                 real*8 dimension(18,18) :: aij
    5525                 real*8 dimension(18,18) :: a14
    5526                 real*8 dimension(18,18) :: chb
    5527                 real*8 dimension(18,18) :: ahb
    5528                 real*8 dimension(19) :: e0to
    5529                 real*8 dimension(19) :: sgto
    5530                 real*8 dimension(19) :: rnto
    5531                 real*8 dimension(19) :: esnto
    5532                 real*8 :: conv
    5533                 real*8 :: plt
    5534                 real*8 :: slp
    5535                 real*8 :: cohb
    5536                 integer*4 dimension(100) :: iatrs1
    5537                 integer*4 dimension(100) :: iatrs2
    5538                 integer*4 dimension(100) :: ixatrs
    5539                 integer*4 dimension(100) :: ivrrs1
    5540                 integer*4 dimension(100) :: nvrrs
    5541                 integer*4 :: ntlrt
    5542                 integer*4 :: ntlsu
    5543                 integer*4 dimension(500) :: i1vrrt
    5544                 integer*4 dimension(500) :: i2vrrt
    5545                 integer*4 dimension(4800) :: iprtsu
    5546                 integer*4 dimension(800) :: i1rtsu
    5547                 integer*4 dimension(800) :: nrtsu
    5548                 integer*4 dimension(800) :: i1vrsu
    5549                 integer*4 dimension(800) :: i2vrsu
    5550                 integer*4 dimension(800) :: ipvrsu
    5551                 real*8 dimension(3,10) :: rfpt
    5552                 real*8 dimension(6,10) :: gbpr
    5553                 real*8 dimension(3,10) :: xrfax
    5554                 real*8 dimension(3,10) :: yrfax
    5555                 real*8 dimension(3,10) :: zrfax
     6104                double precision dimension(18,18) :: cij
     6105                double precision dimension(18,18) :: aij
     6106                double precision dimension(18,18) :: a14
     6107                double precision dimension(18,18) :: chb
     6108                double precision dimension(18,18) :: ahb
     6109                double precision dimension(19) :: e0to
     6110                double precision dimension(19) :: sgto
     6111                double precision dimension(19) :: rnto
     6112                double precision dimension(19) :: esnto
     6113                double precision :: conv
     6114                double precision :: plt
     6115                double precision :: slp
     6116                double precision :: cohb
     6117                integer dimension(100) :: iatrs1
     6118                integer dimension(100) :: iatrs2
     6119                integer dimension(100) :: ixatrs
     6120                integer dimension(100) :: ivrrs1
     6121                integer dimension(100) :: nvrrs
     6122                integer :: ntlrt
     6123                integer :: ntlsu
     6124                integer dimension(500) :: i1vrrt
     6125                integer dimension(500) :: i2vrrt
     6126                integer dimension(4800) :: iprtsu
     6127                integer dimension(800) :: i1rtsu
     6128                integer dimension(800) :: nrtsu
     6129                integer dimension(800) :: i1vrsu
     6130                integer dimension(800) :: i2vrsu
     6131                integer dimension(800) :: ipvrsu
     6132                double precision dimension(3,10) :: rfpt
     6133                double precision dimension(6,10) :: gbpr
     6134                double precision dimension(3,10) :: xrfax
     6135                double precision dimension(3,10) :: yrfax
     6136                double precision dimension(3,10) :: zrfax
    55566137                logical dimension(800) :: fxvr
    5557                 real*8 :: eyel
    5558                 real*8 :: eyvw
    5559                 real*8 :: eyhb
    5560                 real*8 :: eyvr
    5561                 real*8 :: eysm
    5562                 real*8 :: eysl
    5563                 real*8 :: eyrg
    5564                 real*8 :: eyslh
    5565                 real*8 :: eyslp
    5566                 real*8 :: eyab
    5567                 real*8 :: eysmi
    5568                 real*8 :: eyhbi
    5569                 real*8 :: eyeli
    5570                 real*8 :: eyvwi
    5571                 real*8 dimension(800) :: gdeyvr
    5572                 real*8 dimension(800) :: gdeyrg
    5573                 real*8 dimension(800) :: gdeysl
    5574                 real*8 dimension(60) :: gdeygb
    5575                 real*8 :: wtey
    5576                 real*8 :: wtrg
    5577                 integer*4 dimension(800) :: iatvr
    5578                 integer*4 dimension(800) :: ityvr
    5579                 integer*4 dimension(800) :: iclvr
    5580                 integer*4 dimension(800) :: iorvr
    5581                 integer*4 dimension(800) :: imsvr1
    5582                 integer*4 dimension(800) :: imsvr2
    5583                 integer*4 dimension(2400) :: latms1
    5584                 integer*4 dimension(2400) :: latms2
    5585                 integer*4 dimension(800) :: iadvr1
    5586                 integer*4 dimension(800) :: iadvr2
    5587                 integer*4 dimension(800) :: ladvr
    5588                 integer*4 dimension(800) :: idvr
     6138                double precision :: eyel
     6139                double precision :: eyvw
     6140                double precision :: eyhb
     6141                double precision :: eyvr
     6142                double precision :: eysm
     6143                double precision :: eysl
     6144                double precision :: eyrg
     6145                double precision :: eyslh
     6146                double precision :: eyslp
     6147                double precision :: eyab
     6148                double precision :: eysmi
     6149                double precision :: eyhbi
     6150                double precision :: eyeli
     6151                double precision :: eyvwi
     6152                double precision dimension(800) :: gdeyvr
     6153                double precision dimension(800) :: gdeyrg
     6154                double precision dimension(800) :: gdeysl
     6155                double precision dimension(60) :: gdeygb
     6156                double precision :: wtey
     6157                double precision :: wtrg
     6158                integer dimension(800) :: iatvr
     6159                integer dimension(800) :: ityvr
     6160                integer dimension(800) :: iclvr
     6161                integer dimension(800) :: iorvr
     6162                integer dimension(800) :: imsvr1
     6163                integer dimension(800) :: imsvr2
     6164                integer dimension(2400) :: latms1
     6165                integer dimension(2400) :: latms2
     6166                integer dimension(800) :: iadvr1
     6167                integer dimension(800) :: iadvr2
     6168                integer dimension(800) :: ladvr
     6169                integer dimension(800) :: idvr
    55896170                integer :: enysolct
    5590                 character dimension(3,800) :: nmvr
    5591                 real*8 :: boxsize
     6171                character dimension(800,3) :: nmvr
     6172                double precision :: boxsize
    55926173                integer :: seed
    5593                 character*100 :: zimm
    5594                 integer*4 :: itysol
     6174                character*mxrs :: zimm
     6175                integer :: itysol
    55956176                logical :: isolscl
    5596                 real*8 dimension(100) :: rsstrg
     6177                double precision dimension(100) :: rsstrg
    55976178                character dimension(35,4) :: rsnmcd
    55986179                character dimension(35) :: onltcd
    … …  
    56006181                integer :: upchswitch
    56016182                double precision :: bgsprob
    5602                 integer*4 dimension(10) :: nvwml
    5603                 integer*4 dimension(10) :: ivwml1
    5604                 integer*4 dimension(10) :: n14ml
    5605                 integer*4 dimension(10) :: i14ml1
    5606                 integer*4 dimension(2600) :: ivwat1
    5607                 integer*4 dimension(2600) :: ivwat2
    5608                 integer*4 dimension(2600) :: i14at1
    5609                 integer*4 dimension(2600) :: i14at2
    5610                 integer*4 dimension(10400) :: lvwat1
    5611                 integer*4 dimension(10400) :: lvwat2
    5612                 integer*4 dimension(10400) :: l14at
    5613                 integer*4 dimension(10400) :: ixatvw
    5614                 integer*4 dimension(10400) :: ixat14
    5615                 real*8 dimension(800) :: olvlvr
    5616                 real*8 dimension(800) :: vlvr
    5617                 real*8 dimension(800) :: axvr
    5618                 real*8 :: beta
    5619                 real*8 dimension(18,18) :: c_f
    5620                 real*8 dimension(18,18) :: a_f
    5621                 real*8 dimension(4,6) :: chb_f
    5622                 real*8 dimension(4,6) :: ahb_f
    5623                 real*8 dimension(19) :: e0to_f
    5624                 real*8 dimension(19) :: sgto_f
    5625                 real*8 dimension(19) :: rnto_f
    5626                 real*8 :: plt_f
    5627                 real*8 :: slp_f
    5628                 real*8 :: cohb_f
     6183                integer dimension(10) :: nvwml
     6184                integer dimension(10) :: ivwml1
     6185                integer dimension(10) :: n14ml
     6186                integer dimension(10) :: i14ml1
     6187                integer dimension(2600) :: ivwat1
     6188                integer dimension(2600) :: ivwat2
     6189                integer dimension(2600) :: i14at1
     6190                integer dimension(2600) :: i14at2
     6191                integer dimension(10400) :: lvwat1
     6192                integer dimension(10400) :: lvwat2
     6193                integer dimension(10400) :: l14at
     6194                integer dimension(10400) :: ixatvw
     6195                integer dimension(10400) :: ixat14
     6196                double precision dimension(800) :: olvlvr
     6197                double precision dimension(800) :: vlvr
     6198                double precision dimension(800) :: axvr
     6199                double precision :: beta
     6200                double precision dimension(18,18) :: c_f
     6201                double precision dimension(18,18) :: a_f
     6202                double precision dimension(4,6) :: chb_f
     6203                double precision dimension(4,6) :: ahb_f
     6204                double precision dimension(19) :: e0to_f
     6205                double precision dimension(19) :: sgto_f
     6206                double precision dimension(19) :: rnto_f
     6207                double precision :: plt_f
     6208                double precision :: slp_f
     6209                double precision :: cohb_f
    56296210                common /v_sol/ vdvol,asa,asap,asah
    56306211                common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    56906271                real*8 intent(in) :: binwidth
    56916272                logical intent(in) :: restart
    5692                 real*8 :: vdvol
    5693                 real*8 :: asa
    5694                 real*8 :: asap
    5695                 real*8 :: asah
    5696                 real*8 dimension(2600) :: cgat
    5697                 real*8 dimension(2600) :: xbaat
    5698                 real*8 dimension(2600) :: ybaat
    5699                 real*8 dimension(2600) :: zbaat
    5700                 real*8 dimension(2600) :: baat
    5701                 real*8 dimension(2600) :: snbaat
    5702                 real*8 dimension(2600) :: csbaat
    5703                 real*8 dimension(2600) :: xtoat
    5704                 real*8 dimension(2600) :: ytoat
    5705                 real*8 dimension(2600) :: ztoat
    5706                 real*8 dimension(2600) :: toat
    5707                 real*8 dimension(2600) :: sntoat
    5708                 real*8 dimension(2600) :: cstoat
    5709                 real*8 dimension(2600) :: blat
    5710                 real*8 dimension(2602) :: xat
    5711                 real*8 dimension(2602) :: yat
    5712                 real*8 dimension(2602) :: zat
    5713                 integer*4 dimension(100,100) :: ijcont
    5714                 integer*4 dimension(100) :: ind_alf
     6273                double precision :: vdvol
     6274                double precision :: asa
     6275                double precision :: asap
     6276                double precision :: asah
     6277                integer dimension(2600) :: cgat
     6278                double precision dimension(2600) :: xbaat
     6279                double precision dimension(2600) :: ybaat
     6280                double precision dimension(2600) :: zbaat
     6281                double precision dimension(2600) :: baat
     6282                double precision dimension(2600) :: snbaat
     6283                double precision dimension(2600) :: csbaat
     6284                double precision dimension(2600) :: xtoat
     6285                double precision dimension(2600) :: ytoat
     6286                double precision dimension(2600) :: ztoat
     6287                double precision dimension(2600) :: toat
     6288                double precision dimension(2600) :: sntoat
     6289                double precision dimension(2600) :: cstoat
     6290                double precision dimension(2600) :: blat
     6291                double precision dimension(2602) :: xat
     6292                double precision dimension(2602) :: yat
     6293                double precision dimension(2602) :: zat
     6294                integer dimension(100,100) :: ijcont
     6295                integer dimension(100) :: ind_alf
    57156296                logical dimension(18) :: do_s
    57166297                logical dimension(18) :: ac_s
    57176298                character dimension(500,4) :: nmrt
    57186299                character dimension(1000,3) :: nmvrrt
    5719                 integer*4 :: nvr
    5720                 real*8 dimension(9,18) :: coef_sl
    5721                 real*8 dimension(9,18) :: rad_vdw
    5722                 real*8 dimension(100) :: surfres
    5723                 integer*4 :: ntyhb
    5724                 integer*4 dimension(100) :: ixtyhb
    5725                 integer*4 dimension(100) :: nutyhb
    5726                 integer*4 dimension(10,10) :: mmhb
    5727                 character dimension(4,2600) :: nmat
    5728                 integer*4 :: lunlib
    5729                 integer*4 :: lunseq
    5730                 integer*4 :: lunchg
    5731                 integer*4 :: lunvar
    5732                 integer*4 :: lunrst
     6300                integer :: nvr
     6301                double precision dimension(9,18) :: coef_sl
     6302                double precision dimension(9,18) :: rad_vdw
     6303                double precision dimension(100) :: surfres
     6304                integer :: ntyhb
     6305                integer dimension(100) :: ixtyhb
     6306                integer dimension(100) :: nutyhb
     6307                integer dimension(10,10) :: mmhb
     6308                character dimension(2600,4) :: nmat
     6309                integer :: lunlib
     6310                integer :: lunseq
     6311                integer :: lunchg
     6312                integer :: lunvar
     6313                integer :: lunrst
    57336314                logical dimension(800) :: isrfvr
    5734                 real*8 dimension(500) :: pbrt
    5735                 real*8 dimension(1000) :: vuvrrt
    5736                 real*8 dimension(1000) :: dvvrrt
    5737                 integer*4 dimension(2600) :: ityat
    5738                 integer*4 dimension(2600) :: iowat
    5739                 integer*4 dimension(2600) :: iyowat
    5740                 integer*4 dimension(2600) :: nbdat
    5741                 integer*4 dimension(3,2600) :: ibdat
    5742                 integer*4 dimension(3,2600) :: iybdat
    5743                 integer*4 dimension(2600) :: ixmsat
    5744                 real*8 :: ehm
    5745                 real*8 dimension(18) :: atpl
    5746                 real*8 dimension(18) :: efel
    5747                 real*8 dimension(18) :: emin
    5748                 real*8 dimension(18) :: rmin
    5749                 real*8 dimension(4,6) :: chb_s
    5750                 real*8 dimension(4,6) :: ahb_s
    5751                 real*8 dimension(19) :: e0to_s
    5752                 real*8 dimension(19) :: sgto_s
    5753                 real*8 dimension(19) :: rnto_s
    5754                 real*8 :: eps_s
    5755                 real*8 dimension(2000,3) :: spoint
     6315                double precision dimension(500) :: pbrt
     6316                double precision dimension(1000) :: vuvrrt
     6317                double precision dimension(1000) :: dvvrrt
     6318                integer dimension(2600) :: ityat
     6319                integer dimension(2600) :: iowat
     6320                integer dimension(2600) :: iyowat
     6321                integer dimension(2600) :: nbdat
     6322                integer dimension(3,2600) :: ibdat
     6323                integer dimension(3,2600) :: iybdat
     6324                integer dimension(2600) :: ixmsat
     6325                double precision :: ehm
     6326                double precision dimension(18) :: atpl
     6327                double precision dimension(18) :: efel
     6328                double precision dimension(18) :: emin
     6329                double precision dimension(18) :: rmin
     6330                double precision dimension(4,6) :: chb_s
     6331                double precision dimension(4,6) :: ahb_s
     6332                double precision dimension(19) :: e0to_s
     6333                double precision dimension(19) :: sgto_s
     6334                double precision dimension(19) :: rnto_s
     6335                double precision :: eps_s
     6336                double precision dimension(2000,3) :: spoint
    57566337                logical dimension(18) :: do_f
    57576338                logical dimension(18) :: ac_f
    … …  
    57616342                character*80 :: varfil
    57626343                character*80 :: rstfil
    5763                 integer*4 :: ntlml
    5764                 integer*4 dimension(10) :: irsml1
    5765                 integer*4 dimension(10) :: irsml2
    5766                 integer*4 dimension(10) :: ivrml1
    5767                 integer*4 dimension(10) :: nvrml
    5768                 integer*4 dimension(10) :: imsml1
    5769                 integer*4 dimension(10) :: nmsml
    5770                 integer*4 dimension(10) :: iadml1
    5771                 integer*4 dimension(10) :: nadml
    5772                 integer*4 dimension(3,10) :: ixrfpt
    5773                 integer*4 dimension(2600) :: ixatp
    5774                 integer*4 :: ireg
    5775                 real*8 dimension(100) :: blath
    5776                 real*8 dimension(100) :: baath
    5777                 real*8 dimension(100) :: toath
    5778                 real*8 dimension(100) :: cgath
    5779                 integer*4 dimension(100,100) :: iref
    5780                 integer*4 :: nci
     6344                integer :: ntlml
     6345                integer dimension(10) :: irsml1
     6346                integer dimension(10) :: irsml2
     6347                integer dimension(10) :: ivrml1
     6348                integer dimension(10) :: nvrml
     6349                integer dimension(10) :: imsml1
     6350                integer dimension(10) :: nmsml
     6351                integer dimension(10) :: iadml1
     6352                integer dimension(10) :: nadml
     6353                integer dimension(3,10) :: ixrfpt
     6354                integer dimension(2600) :: ixatp
     6355                integer :: ireg
     6356                double precision dimension(100) :: blath
     6357                double precision dimension(100) :: baath
     6358                double precision dimension(100) :: toath
     6359                double precision dimension(100) :: cgath
     6360                integer dimension(100,100) :: iref
     6361                integer :: nci
    57816362                logical :: flex
    57826363                logical :: tesgrd
    57836364                logical :: sh2
    57846365                logical :: epsd
    5785                 integer*4 :: ientyp
    5786                 real*8 :: rgyh
    5787                 real*8 :: rgyp
    5788                 integer*4 :: idloa
    5789                 integer*4 :: idloz
    5790                 integer*4 :: idupa
    5791                 integer*4 :: idupz
     6366                integer :: ientyp
     6367                double precision :: rgyh
     6368                double precision :: rgyp
     6369                integer :: idloa
     6370                integer :: idloz
     6371                integer :: idupa
     6372                integer :: idupz
    57926373                integer :: myrank
    57936374                integer :: no
    … …  
    57966377                character dimension(100,4) :: nmath
    57976378                character dimension(100,3) :: nmvrh
    5798                 integer*4 dimension(100) :: ityath
    5799                 integer*4 dimension(100) :: iowath
    5800                 integer*4 dimension(100) :: iyowath
    5801                 integer*4 dimension(100) :: nbdath
    5802                 integer*4 dimension(3,100) :: ibdath
    5803                 integer*4 dimension(3,100) :: iybdath
    5804                 integer*4 dimension(100) :: ityvrh
    5805                 integer*4 dimension(100) :: iclvrh
    5806                 integer*4 dimension(100) :: iatvrh
     6379                integer dimension(100) :: ityath
     6380                integer dimension(100) :: iowath
     6381                integer dimension(100) :: iyowath
     6382                integer dimension(100) :: nbdath
     6383                integer dimension(3,100) :: ibdath
     6384                integer dimension(3,100) :: iybdath
     6385                integer dimension(100) :: ityvrh
     6386                integer dimension(100) :: iclvrh
     6387                integer dimension(100) :: iatvrh
    58076388                character dimension(100,4) :: seq
    5808                 real*8 dimension(2600) :: rvdw
    5809                 real*8 dimension(2600) :: sigma
    5810                 real*8 dimension(2600,3) :: gradan
    5811                 integer*4 dimension(18,18) :: ihbty
    5812                 integer*4 :: npnt
     6389                double precision dimension(2600) :: rvdw
     6390                double precision dimension(2600) :: sigma
     6391                double precision dimension(2600,3) :: gradan
     6392                integer dimension(18,18) :: ihbty
     6393                integer :: npnt
    58136394                character dimension(10,80) :: nmml
    5814                 real*8 dimension(18,18) :: cij
    5815                 real*8 dimension(18,18) :: aij
    5816                 real*8 dimension(18,18) :: a14
    5817                 real*8 dimension(18,18) :: chb
    5818                 real*8 dimension(18,18) :: ahb
    5819                 real*8 dimension(19) :: e0to
    5820                 real*8 dimension(19) :: sgto
    5821                 real*8 dimension(19) :: rnto
    5822                 real*8 dimension(19) :: esnto
    5823                 real*8 :: conv
    5824                 real*8 :: plt
    5825                 real*8 :: slp
    5826                 real*8 :: cohb
    5827                 integer*4 dimension(100) :: iatrs1
    5828                 integer*4 dimension(100) :: iatrs2
    5829                 integer*4 dimension(100) :: ixatrs
    5830                 integer*4 dimension(100) :: ivrrs1
    5831                 integer*4 dimension(100) :: nvrrs
    5832                 integer*4 :: ntlrt
    5833                 integer*4 :: ntlsu
    5834                 integer*4 dimension(500) :: i1vrrt
    5835                 integer*4 dimension(500) :: i2vrrt
    5836                 integer*4 dimension(4800) :: iprtsu
    5837                 integer*4 dimension(800) :: i1rtsu
    5838                 integer*4 dimension(800) :: nrtsu
    5839                 integer*4 dimension(800) :: i1vrsu
    5840                 integer*4 dimension(800) :: i2vrsu
    5841                 integer*4 dimension(800) :: ipvrsu
    5842                 real*8 dimension(3,10) :: rfpt
    5843                 real*8 dimension(6,10) :: gbpr
    5844                 real*8 dimension(3,10) :: xrfax
    5845                 real*8 dimension(3,10) :: yrfax
    5846                 real*8 dimension(3,10) :: zrfax
     6395                double precision dimension(18,18) :: cij
     6396                double precision dimension(18,18) :: aij
     6397                double precision dimension(18,18) :: a14
     6398                double precision dimension(18,18) :: chb
     6399                double precision dimension(18,18) :: ahb
     6400                double precision dimension(19) :: e0to
     6401                double precision dimension(19) :: sgto
     6402                double precision dimension(19) :: rnto
     6403                double precision dimension(19) :: esnto
     6404                double precision :: conv
     6405                double precision :: plt
     6406                double precision :: slp
     6407                double precision :: cohb
     6408                integer dimension(100) :: iatrs1
     6409                integer dimension(100) :: iatrs2
     6410                integer dimension(100) :: ixatrs
     6411                integer dimension(100) :: ivrrs1
     6412                integer dimension(100) :: nvrrs
     6413                integer :: ntlrt
     6414                integer :: ntlsu
     6415                integer dimension(500) :: i1vrrt
     6416                integer dimension(500) :: i2vrrt
     6417                integer dimension(4800) :: iprtsu
     6418                integer dimension(800) :: i1rtsu
     6419                integer dimension(800) :: nrtsu
     6420                integer dimension(800) :: i1vrsu
     6421                integer dimension(800) :: i2vrsu
     6422                integer dimension(800) :: ipvrsu
     6423                double precision dimension(3,10) :: rfpt
     6424                double precision dimension(6,10) :: gbpr
     6425                double precision dimension(3,10) :: xrfax
     6426                double precision dimension(3,10) :: yrfax
     6427                double precision dimension(3,10) :: zrfax
    58476428                logical dimension(800) :: fxvr
    5848                 real*8 :: eyel
    5849                 real*8 :: eyvw
    5850                 real*8 :: eyhb
    5851                 real*8 :: eyvr
    5852                 real*8 :: eysm
    5853                 real*8 :: eysl
    5854                 real*8 :: eyrg
    5855                 real*8 :: eyslh
    5856                 real*8 :: eyslp
    5857                 real*8 :: eyab
    5858                 real*8 :: eysmi
    5859                 real*8 :: eyhbi
    5860                 real*8 :: eyeli
    5861                 real*8 :: eyvwi
    5862                 real*8 dimension(800) :: gdeyvr
    5863                 real*8 dimension(800) :: gdeyrg
    5864                 real*8 dimension(800) :: gdeysl
    5865                 real*8 dimension(60) :: gdeygb
    5866                 real*8 :: wtey
    5867                 real*8 :: wtrg
    5868                 integer*4 dimension(800) :: iatvr
    5869                 integer*4 dimension(800) :: ityvr
    5870                 integer*4 dimension(800) :: iclvr
    5871                 integer*4 dimension(800) :: iorvr
    5872                 integer*4 dimension(800) :: imsvr1
    5873                 integer*4 dimension(800) :: imsvr2
    5874                 integer*4 dimension(2400) :: latms1
    5875                 integer*4 dimension(2400) :: latms2
    5876                 integer*4 dimension(800) :: iadvr1
    5877                 integer*4 dimension(800) :: iadvr2
    5878                 integer*4 dimension(800) :: ladvr
    5879                 integer*4 dimension(800) :: idvr
     6429                double precision :: eyel
     6430                double precision :: eyvw
     6431                double precision :: eyhb
     6432                double precision :: eyvr
     6433                double precision :: eysm
     6434                double precision :: eysl
     6435                double precision :: eyrg
     6436                double precision :: eyslh
     6437                double precision :: eyslp
     6438                double precision :: eyab
     6439                double precision :: eysmi
     6440                double precision :: eyhbi
     6441                double precision :: eyeli
     6442                double precision :: eyvwi
     6443                double precision dimension(800) :: gdeyvr
     6444                double precision dimension(800) :: gdeyrg
     6445                double precision dimension(800) :: gdeysl
     6446                double precision dimension(60) :: gdeygb
     6447                double precision :: wtey
     6448                double precision :: wtrg
     6449                integer dimension(800) :: iatvr
     6450                integer dimension(800) :: ityvr
     6451                integer dimension(800) :: iclvr
     6452                integer dimension(800) :: iorvr
     6453                integer dimension(800) :: imsvr1
     6454                integer dimension(800) :: imsvr2
     6455                integer dimension(2400) :: latms1
     6456                integer dimension(2400) :: latms2
     6457                integer dimension(800) :: iadvr1
     6458                integer dimension(800) :: iadvr2
     6459                integer dimension(800) :: ladvr
     6460                integer dimension(800) :: idvr
    58806461                integer :: enysolct
    5881                 character dimension(3,800) :: nmvr
    5882                 real*8 :: boxsize
     6462                character dimension(800,3) :: nmvr
     6463                double precision :: boxsize
    58836464                integer :: seed
    5884                 character*100 :: zimm
    5885                 integer*4 :: itysol
     6465                character*mxrs :: zimm
     6466                integer :: itysol
    58866467                logical :: isolscl
    5887                 real*8 dimension(100) :: rsstrg
     6468                double precision dimension(100) :: rsstrg
    58886469                character dimension(35,4) :: rsnmcd
    58896470                character dimension(35) :: onltcd
    … …  
    58916472                integer :: upchswitch
    58926473                double precision :: bgsprob
    5893                 integer*4 dimension(10) :: nvwml
    5894                 integer*4 dimension(10) :: ivwml1
    5895                 integer*4 dimension(10) :: n14ml
    5896                 integer*4 dimension(10) :: i14ml1
    5897                 integer*4 dimension(2600) :: ivwat1
    5898                 integer*4 dimension(2600) :: ivwat2
    5899                 integer*4 dimension(2600) :: i14at1
    5900                 integer*4 dimension(2600) :: i14at2
    5901                 integer*4 dimension(10400) :: lvwat1
    5902                 integer*4 dimension(10400) :: lvwat2
    5903                 integer*4 dimension(10400) :: l14at
    5904                 integer*4 dimension(10400) :: ixatvw
    5905                 integer*4 dimension(10400) :: ixat14
    5906                 real*8 dimension(800) :: olvlvr
    5907                 real*8 dimension(800) :: vlvr
    5908                 real*8 dimension(800) :: axvr
    5909                 real*8 :: beta
    5910                 real*8 dimension(18,18) :: c_f
    5911                 real*8 dimension(18,18) :: a_f
    5912                 real*8 dimension(4,6) :: chb_f
    5913                 real*8 dimension(4,6) :: ahb_f
    5914                 real*8 dimension(19) :: e0to_f
    5915                 real*8 dimension(19) :: sgto_f
    5916                 real*8 dimension(19) :: rnto_f
    5917                 real*8 :: plt_f
    5918                 real*8 :: slp_f
    5919                 real*8 :: cohb_f
     6474                integer dimension(10) :: nvwml
     6475                integer dimension(10) :: ivwml1
     6476                integer dimension(10) :: n14ml
     6477                integer dimension(10) :: i14ml1
     6478                integer dimension(2600) :: ivwat1
     6479                integer dimension(2600) :: ivwat2
     6480                integer dimension(2600) :: i14at1
     6481                integer dimension(2600) :: i14at2
     6482                integer dimension(10400) :: lvwat1
     6483                integer dimension(10400) :: lvwat2
     6484                integer dimension(10400) :: l14at
     6485                integer dimension(10400) :: ixatvw
     6486                integer dimension(10400) :: ixat14
     6487                double precision dimension(800) :: olvlvr
     6488                double precision dimension(800) :: vlvr
     6489                double precision dimension(800) :: axvr
     6490                double precision :: beta
     6491                double precision dimension(18,18) :: c_f
     6492                double precision dimension(18,18) :: a_f
     6493                double precision dimension(4,6) :: chb_f
     6494                double precision dimension(4,6) :: ahb_f
     6495                double precision dimension(19) :: e0to_f
     6496                double precision dimension(19) :: sgto_f
     6497                double precision dimension(19) :: rnto_f
     6498                double precision :: plt_f
     6499                double precision :: slp_f
     6500                double precision :: cohb_f
    59206501                common /v_sol/ vdvol,asa,asap,asah
    59216502                common /atm_r/ cgat,xbaat,ybaat,zbaat,baat,snbaat,csbaat,xtoat,ytoat,ztoat,toat,sntoat,cstoat,blat,xat,yat,zat
    … …  
    59766557end python module smmp
    59776558
    5978 ! This file was auto-generated with f2py (version:2_3816).
     6559! This file was auto-generated with f2py (version:2_5585).
    59796560! See http://cens.ioc.ee/projects/f2py2e/
Note: See TracChangeset for help on using the changeset viewer.