Searched defs:ex_1real (Results 1 – 8 of 8) sorted by relevance
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-subgroups/ |
| H A D | extrct_real.f | 9 integer i,j,n,ifact2,ifact,ist,nstart
10 integer ierr,limit,iexft,irec_len
12 real*8 expo,buf,fact
14 character*1 irecord,cchar,itemp
34 170 ierr=2
36 180 if(j.lt.11)goto 200
49 190 continue
52 200 buf=buf+(dble(j-1)*fact)
54 210 nstart=nstart-1
56 220 buf=(0.1d0**(ifact2-iexft))*buf
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-serial/ |
| H A D | extrct_real.f | 9 integer i,j,n,ifact2,ifact,ist,nstart
10 integer ierr,limit,iexft,irec_len
12 real*8 expo,buf,fact
14 character*1 irecord,cchar,itemp
34 170 ierr=2
36 180 if(j.lt.11)goto 200
49 190 continue
52 200 buf=buf+(dble(j-1)*fact)
54 210 nstart=nstart-1
56 220 buf=(0.1d0**(ifact2-iexft))*buf
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-9-10-08/ |
| H A D | extrct_real.f | 9 integer i,j,n,ifact2,ifact,ist,nstart
10 integer ierr,limit,iexft,irec_len
12 real*8 expo,buf,fact
14 character*1 irecord,cchar,itemp
34 170 ierr=2
36 180 if(j.lt.11)goto 200
49 190 continue
52 200 buf=buf+(dble(j-1)*fact)
54 210 nstart=nstart-1
56 220 buf=(0.1d0**(ifact2-iexft))*buf
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-original/ |
| H A D | extrct_real.f | 5 integer i,j,n,ifact2,ifact,ist,nstart
6 integer ierr,limit,iexft,irec_len
8 real*8 expo,buf,fact
10 character*1 irecord,cchar,itemp
30 170 ierr=2
32 180 if(j.lt.11)goto 200
45 190 continue
48 200 buf=buf+(dble(j-1)*fact)
50 210 nstart=nstart-1
52 220 buf=(0.1d0**(ifact2-iexft))*buf
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-serial/ |
| H A D | extrct_real.f | 9 integer i,j,n,ifact2,ifact,ist,nstart
10 integer ierr,limit,iexft,irec_len
12 real*8 expo,buf,fact
14 character*1 irecord,cchar,itemp
34 170 ierr=2
36 180 if(j.lt.11)goto 200
49 190 continue
52 200 buf=buf+(dfloat(j-1)*fact)
54 210 nstart=nstart-1
56 220 buf=(0.1d0**(ifact2-iexft))*buf
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-9-10-08/ |
| H A D | extrct_real.f | 9 integer i,j,n,ifact2,ifact,ist,nstart
10 integer ierr,limit,iexft,irec_len
12 real*8 expo,buf,fact
14 character*1 irecord,cchar,itemp
34 170 ierr=2
36 180 if(j.lt.11)goto 200
49 190 continue
52 200 buf=buf+(dfloat(j-1)*fact)
54 210 nstart=nstart-1
56 220 buf=(0.1d0**(ifact2-iexft))*buf
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-subgroups/ |
| H A D | extrct_real.f | 9 integer i,j,n,ifact2,ifact,ist,nstart
10 integer ierr,limit,iexft,irec_len
12 real*8 expo,buf,fact
14 character*1 irecord,cchar,itemp
34 170 ierr=2
36 180 if(j.lt.11)goto 200
49 190 continue
52 200 buf=buf+(dfloat(j-1)*fact)
54 210 nstart=nstart-1
56 220 buf=(0.1d0**(ifact2-iexft))*buf
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-original/ |
| H A D | extrct_real.f | 5 integer i,j,n,ifact2,ifact,ist,nstart
6 integer ierr,limit,iexft,irec_len
8 real*8 expo,buf,fact
10 character*1 irecord,cchar,itemp
30 170 ierr=2
32 180 if(j.lt.11)goto 200
45 190 continue
48 200 buf=buf+(dfloat(j-1)*fact)
50 210 nstart=nstart-1
52 220 buf=(0.1d0**(ifact2-iexft))*buf
[all …]
|