Home
last modified time | relevance | path

Searched refs:ITYP (Results 1 – 25 of 172) sorted by relevance

1234567

/dports/science/mdynamix/md528/
H A Dsetup.f140 TFACT(ITYP) = ENERF*TEMPF*FNSS1/(NSITS(ITYP)*NSPEC(ITYP))
142 TFACT(ITYP)=TFACT(ITYP)*FNSS3/(FNSS3-NRCON(ITYP))
167 IADDR (ITYP+1) = IADDR (ITYP)+NSPEC(ITYP) ! molecules
168 ISADR (ITYP+1) = ISADR (ITYP)+NSITS(ITYP) ! sites
169 ISADDR(ITYP+1) = ISADDR(ITYP)+NSITS(ITYP)*NSPEC(ITYP) ! atoms
183 + ' type ',ITYP,' - ',NAMOL(ITYP)(1:16),' Nmol',NSPEC(ITYP),
215 + ITYP,ISADR(ITYP),IADDR(ITYP),ISADDR(ITYP)
305 IML=ISADDR(ITYP)+(I-1)*NSITS(ITYP)
650 if(ITYP.lt.NTYPES)NWRK1=NRB(ITYP+1)
755 NRNOD(ITYP)=mod(ITYP-1,NUMTASK)
[all …]
H A Dmain.f240 do ITYP=1,NTYPES
247 TOTMAS = TOTMAS+SUMMAS(ITYP)*NSPEC(ITYP)
248 NAME(ITYP)=NAMOL(ITYP)(1:6)
312 NRBND=NRBND+NRB(ITYP)*NSPEC(ITYP) ! Num. of bonds
313 NRANG=NRANG+NRA(ITYP)*NSPEC(ITYP) ! Num. of angles
314 NRTOR=NRTOR+NRT(ITYP)*NSPEC(ITYP) ! Num. of dihedrals
321 FNST = FNST+3*NSPEC(ITYP)*NSITS(ITYP)
324 + FNST=FNST-NRCON(ITYP)*NSPEC(ITYP)
325 if(NSITS(ITYP).eq.2)FNSTR=FNSTR+2.*NSPEC(ITYP)
326 if(NSITS(ITYP).ge.3)FNSTR=FNSTR+3.*NSPEC(ITYP)
[all …]
H A Daver.f64 EBOND(ITYP)= EBOND(ITYP)+EBM
86 EANGL(ITYP) = EANGL(ITYP)+EAM
108 ETORS(ITYP) = ETORS(ITYP)+ETM
431 X,NAME(ITYP),NAME(JTYP)
525 do ITYP=1,NTYPES
723 DO ITYP = 1,NTYPES
784 DO ITYP = 1,NTYPES
1041 do ITYP=1,NTYPES
1084 do ITYP=1,NTYPES
1085 IC1=40+9*ITYP
[all …]
H A Dservice.f48 do ITYP=1,NTYPES
49 TEMPR(ITYP)=0.
52 ITYP=ITYPE(I)
63 TEMPR(ITYP) = TEMPR(ITYP)+0.5D0*VSC ! kin. energy
81 do ITYP=1,NTYPES
82 TEMPR(ITYP) = EKIN(ITYP)*TFACT(ITYP)
85 do ITYP=1,NTYPES
86 write(*,*)ITYP,TEMPR(ITYP)
871 ITYP=ITYPE(I)
919 ISHIFT=ISADDR(ITYP)+(IM-1)*NSITS(ITYP)
[all …]
H A Dmdee.f94 DO I = ISADR(ITYP)+1,ISADR(ITYP+1)
115 DO ISP = ISADDR(ITYP)+1,ISADDR(ITYP+1)
127 SPEEI(ITYP)=SPET
277 ITYP=ITYPE(I)
321 if(IEE(ITYP).eq.0.and.NSITS(ITYP).gt.1)then
329 ISP = ISADDR(ITYP)+(IM-1)*NSITS(ITYP)+IS-ISBEG+1
330 JSP = ISADDR(ITYP)+(IM-1)*NSITS(ITYP)+JS-ISBEG+1
455 ITYP=ITYPE(ISP)
639 EBOND(ITYP) = EBOND(ITYP)+EBM
662 EANGL(ITYP) = EANGL(ITYP)+EAM
[all …]
H A Dmdstep.f90 ITYP = ITYPE(I)
102 ITYP = ITYPE(I)
347 ITYP = ITYPE(I)
365 ITYP = ITYPE(I)
406 ITYP = ITYPE(I)
425 ITYP = ITYPE(I)
985 IBEG=ISADDR(ITYP)+1+NSITS(ITYP)*(IMOL-IADDR(ITYP)-1)
986 IEND=ISADDR(ITYP)+NSITS(ITYP)*(IMOL-IADDR(ITYP))
1070 NRTSC(ITYP) = NRTSC(ITYP)+1
1086 NRTSC(ITYP) = NRTSC(ITYP)+1
[all …]
H A Dpimd.f99 ITYP = ITYPE(I)
101 if(LMOVE(ITYP))then
118 ITYP = ITYPE(I)
132 ITYP = ITYPE(I)
181 ITYP = ITYPE(I)
197 ITYP = ITYPE(I)
389 ITYP=ITS(IS)
948 IBEG=ISADDR(ITYP)+1+NSITS(ITYP)*(IMOL-IADDR(ITYP)-1)
949 IEND=ISADDR(ITYP)+NSITS(ITYP)*(IMOL-IADDR(ITYP))
1033 NRTSC(ITYP) = NRTSC(ITYP)+1
[all …]
H A Drestart.f514 do ITYP=1,NTYPES
515 if(LIST(ITYP).ne.0)NSDP=NSDP+NSPEC(ITYP)*NSITS(ITYP)
530 ITYP=ITYPE(I)
531 if(LIST(ITYP).ne.0)then
614 do ITYP=1,NTYPES
622 + NM(IS),SX(N),SY(N),SZ(N),NAME(ITYP)(1:4),ITYP,'h ',NM(IS)(1:2),
646 ITYP=ITM(I)
654 do ITYP=1,NTYPES
655 if(LIST(ITYP).ne.0)NSDP=NSDP+NSPEC(ITYP)*NSITS(ITYP)
662 ITYP=ITYPE(I)
[all …]
H A Dforces.f126 do ITYP=1,NTYPES
127 if(IPOT(ITYP).eq.1.or.IPOT(ITYP).eq.2)call STRBND(ITYP)
542 if(NAME(ITYP)(1:3).ne.'H2O'.and.NAME(ITYP)(1:3).ne.'h2o')then
947 PES141(ITYP)=PES141(ITYP)+EE1
963 PSR141(ITYP) = PSR141(ITYP)+ESR
1158 PES141(ITYP) = PES141(ITYP)+EE1
1174 PSR141(ITYP) = PSR141(ITYP)+ESR
1445 SPEEI(ITYP)=SPET
1565 SPEE(ITYP) = SPEE(ITYP)+EES
1655 SPEE(ITYP) = SPEE(ITYP)+EES
[all …]
/dports/science/mdynamix/md528/old/
H A Dtcf.f48 NSS = NSITS(ITYP)
49 IF(N1(ITYP).LT.1 .OR.N2(ITYP).LT.1.or.
50 + N1(ITYP).GT.NSS.OR.N2(ITYP).GT.NSS)then
52 +ITYP,' Sites ',N1(ITYP),N2(ITYP),' of ',NSS
242 +NAME(ITYP)
343 +NAME(ITYP)
391 +NAME(ITYP)
436 if(N1(ITYP).ne.N2(ITYP))then
484 if(N1(ITYP).ne.N2(ITYP))then
487 +NAME(ITYP)
[all …]
/dports/science/devisor/devisor2.1/data/
H A Dgeometry.prm7 ITYP NSPLINE NPAR
18 ITYP NSPLINE NPAR
27 ITYP NSPLINE NPAR
36 ITYP NSPLINE NPAR
45 ITYP NSPLINE NPAR
54 ITYP NSPLINE NPAR
67 ITYP NSPLINE NPAR
76 ITYP NSPLINE NPAR
85 ITYP NSPLINE NPAR
94 ITYP NSPLINE NPAR
[all …]
/dports/science/libccp4/libccp4-6.5.1/fortran/
H A Dparser.f188 + TYPE(ITYP(I)),
228 INTEGER ITYP(*)
351 INTEGER ITYP(*)
361 IF (ITYP(N).EQ.2) THEN
363 ELSE IF (ITYP(N).EQ.1) THEN
406 INTEGER ITYP(*)
420 IF (ITYP(N).EQ.2) THEN
1481 INTEGER ITYP(*)
1492 IF (ITYP(N).EQ.2) THEN
1546 INTEGER ITYP(*)
[all …]
/dports/science/mdynamix/md528/tranal/
H A Dtrtcf.f54 IF(N1(ITYP).LT.1 .OR.N2(ITYP).LT.1.or.
55 + N1(ITYP).GT.NSS.OR.N2(ITYP).GT.NSS)then
57 +ITYP,' Sites ',N1(ITYP),N2(ITYP),' of ',NSS
185 +NAME(ITYP)
240 +NAME(ITYP)
286 +NAME(ITYP)
334 +NAME(ITYP)
379 if(N1(ITYP).ne.N2(ITYP))then
382 +NAME(ITYP)
427 if(N1(ITYP).ne.N2(ITYP))then
[all …]
H A Dorder.f121 ITYP=ITS(NC(J))
122 NML=NSPEC(ITYP)
127 IC = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+NC(J)-ISADR(ITYP)
128 IH = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+NH(J)-ISADR(ITYP)
134 IC2 = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+NC(J1)-ISADR(ITYP)
135 IH2 = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+NH(J1)-ISADR(ITYP)
148 I3 = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+ORF1(J)-ISADR(ITYP)
149 I4 = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+ORF2(J)-ISADR(ITYP)
201 IC = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+NC(J)-ISADR(ITYP)
202 IH = ISADDR(ITYP)+(N-1)*NSITS(ITYP)+NH(J)-ISADR(ITYP)
[all …]
H A Dtranal_base.f191 if(IPRINT.ge.8)write(*,*)ITYP,NSPEC(ITYP),NSITS(ITYP)
268 NAME(ITYP)=NAMOL(ITYP)(1:6)
276 ISADR(ITYP+1) = ISADR(ITYP)+ NSITS(ITYP) ! site addr
277 ISADDR(ITYP+1) = ISADDR(ITYP)+NSPEC(ITYP)*NSITS(ITYP) ! atom adr
278 IADDR (ITYP+1) = IADDR (ITYP)+NSPEC(ITYP) ! mol. addr
282 NSTOT = NSTOT + NSPEC(ITYP)*NSITS(ITYP)
285 +' type ',ITYP,' Nmol',NSPEC(ITYP),
287 do J=ISADR(ITYP)+1,ISADR(ITYP+1)
320 SUMMAS(ITYP)=1.*NSITS(ITYP)
326 + ITYP,NAME(ITYP),NSITS(ITYP),NSPEC(ITYP)
[all …]
H A Dtorsion.f63 do ITYP=1,NAG ! type of torsion
64 do N=IADT(ITYP)+1,IADT(ITYP+1)
117 IGS(ITYP)=IGS(ITYP)+1
119 ITRAN(ITYP)=ITRAN(ITYP)+1
121 NPOP(ITYP,NARG)=NPOP(ITYP,NARG)+1
123 +ITYP,IMOL,IST,JST,KST,LST,ARG*180/PI
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/
H A Dher1pro.F3480 ITYP = ITYP + 1
3582 ITYP = ITYP + 1
4039 ITYP = ITYP + 1
4053 ITYP = ITYP + 1
4101 ITYP = ITYP + 1
4145 ITYP = ITYP + 1
4169 ITYP = ITYP + 1
4232 ITYP = ITYP + 1
4257 ITYP = ITYP + 1
4277 ITYP = ITYP + 1
[all …]
/dports/graphics/xd3d/xd3d-8.3.1/src/d3d/
H A Dfleche.f1 SUBROUTINE FLECHE(TAILL,USDIM,VAVA,VIVI,XX0,YY0,ITYP,EPS argument
10 IF (ITYP.LT.0) THEN
15 ITYP2 = -ITYP
21 ITYP2 = ITYP
39 IF (ITYP.LT.0) THEN
50 IF (ITYP.LT.0) THEN
63 IF (ITYP.LT.0) THEN
/dports/graphics/xd3d/xd3d-8.3.1/src/X/
H A Dtype_term.f1 SUBROUTINE TYPE_TERM(ITYP) argument
4 ITYP = 0
6 ITYP = 1
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/graphite/
H A Dpr41924.f909 INTEGER :: ITYP local
12 DO ITYP = 1 , 100
13 IF ( WETSCIM ) HRVALD(ITYP) = 0.0
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/graphite/
H A Dpr41924.f909 INTEGER :: ITYP local
12 DO ITYP = 1 , 100
13 IF ( WETSCIM ) HRVALD(ITYP) = 0.0
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/graphite/
H A Dpr41924.f909 INTEGER :: ITYP local
12 DO ITYP = 1 , 100
13 IF ( WETSCIM ) HRVALD(ITYP) = 0.0
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/graphite/
H A Dpr41924.f909 INTEGER :: ITYP local
12 DO ITYP = 1 , 100
13 IF ( WETSCIM ) HRVALD(ITYP) = 0.0
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gfortran.dg/graphite/
H A Dpr41924.f909 INTEGER :: ITYP local
12 DO ITYP = 1 , 100
13 IF ( WETSCIM ) HRVALD(ITYP) = 0.0
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/graphite/
H A Dpr41924.f909 INTEGER :: ITYP local
12 DO ITYP = 1 , 100
13 IF ( WETSCIM ) HRVALD(ITYP) = 0.0

1234567