Searched refs:imeasure (Results 1 – 4 of 4) sorted by relevance
| /dports/science/multiwfn/gMultiwfn-3.4.1-0-14-ge873677/src/ |
| H A D | topology.f90 | 137 imeasure=0
139 if (c200(ichar:ichar)==','.or.c200(ichar:ichar)==' ') imeasure=imeasure+1
143 else if (imeasure==1.or.imeasure==2.or.imeasure==3) then
144 if (imeasure==1) read(c200,*) ctmp1,ctmp2 !Read two terms
145 if (imeasure==2) read(c200,*) ctmp1,ctmp2,ctmp3 !Read three terms
146 if (imeasure==3) read(c200,*) ctmp1,ctmp2,ctmp3,ctmp4 !Read four terms
170 … if (imeasure==1) write(*,"(' The distance is',f12.6,' Bohr (',f12.6 ' Angstrom)')") &
173 if (imeasure==2.or.imeasure==3) then !Analyze one more term, then print angle
186 …if (imeasure==2) write(*,"(' The angle is',f12.6,' degree')") xyz2angle(tmpx1,tmpy1,tmpz1,tmpx2,tm…
188 if (imeasure==3) then !Analyze one more term, then print dihedral angle
|
| H A D | basinana.f90 | 234 imeasure=0
236 if (c80tmp(ichar:ichar)==','.or.c80tmp(ichar:ichar)==' ') imeasure=imeasure+1
246 else if (imeasure==3) then
254 else if (imeasure==1.or.imeasure==2.or.imeasure==3) then
255 if (imeasure==1) read(c80tmp,*) ctmp1,ctmp2 !Read two terms
256 if (imeasure==2) read(c80tmp,*) ctmp1,ctmp2,ctmp3 !Read three terms
257 if (imeasure==3) read(c80tmp,*) ctmp1,ctmp2,ctmp3,ctmp4 !Read four terms
284 if (imeasure==1) then
310 if (imeasure==2.or.imeasure==3) then !Analyze one more term, then print angle
323 if (imeasure==2) then
[all …]
|
| /dports/audio/midipp/midipp-2.1.1/src/ |
| H A D | midipp_musicxml.cpp | 126 uint32_t imeasure = 0; in MppReadMusicXML() local
181 imeasure = 0; in MppReadMusicXML()
379 imeasure = 0; in MppReadMusicXML()
400 imeasure++; in MppReadMusicXML()
402 if ((imeasure % nmeasure) == (nmeasure - 1)) { in MppReadMusicXML()
|
| /dports/x11-fm/filerunner/filerunner/packages/twapi/ |
| H A D | nls.tcl | 161 imeasure 0x0000000D
|