/dports/biology/molden/molden5.8/ |
H A D | files.f | 3 character keywrd*320, keyori*320 local 9 common /keywrd/ keywrd,keyori local 15 i = index(keywrd,'FILE') 17 i = index(keywrd,'GAUCUB') 36 keywrd(j:j) = ' ' 58 common /keywrd/ keywrd,keyori common 89 keywrd(j:j) = ' ' 100 common /keywrd/ keywrd,keyori local 109 i = index(keywrd,'MAPFIL') 131 common /keywrd/ keywrd,keyori common [all …]
|
H A D | actami.f | 164 character keywrd*160 local 182 keywrd = str(1:nstr) 183 call tocap(keywrd,nstr) 206 ibr1 = index(keywrd,'(') 207 ibr2 = index(keywrd,')') 272 ii = index(keywrd,'COL') 281 & rdist = reada(keywrd,ires1+1,len(keywrd))*1 319 if (index(keywrd,'CHA').ne.0.or.index(keywrd,'NEG').ne.0.or. 378 ires1 = reada(keywrd,1,len(keywrd))*1 383 ires2 = reada(keywrd,ires2+1,len(keywrd))*1 [all …]
|
H A D | plotin.f | 5 common /keywrd/ keywrd,keyori common 6 character*320 keywrd,keyori local 20 if (index(keywrd,'FIG').ne.0) iplot = 0 21 if (index(keywrd,'HPGL').ne.0) iplot = 1 22 if (index(keywrd,'HP23').ne.0) iplot = 2 23 if (index(keywrd,'TEK4').ne.0) iplot = 3 24 if (index(keywrd,'POST').ne.0) iplot = 4 25 if (index(keywrd,'SILLY').ne.0) iplot = 5 26 if (index(keywrd,'OPENGL').ne.0) iplot = 5 27 if (index(keywrd,'XWIN').ne.0) iplot = 6
|
H A D | datin.f | 15 common /keywrd/ keywrd,keyori local 18 character*320 keywrd,keyori local 30 if (keyr(keywrd,'CUT',cut)) then 51 i=index(keywrd,'SPINDENS') 54 i=index(keywrd,'HOMO') 59 i=index(keywrd,'LUMO') 92 common /keywrd/ keywrd,keyori local 93 character*320 keywrd,keyori local 98 i = index(keywrd,'OCCU') 104 i = index(keywrd,'OCCA') [all …]
|
H A D | plend.f | 3 character title*80, keywrd*320, keyhlp*80, keyori*320 local 6 common /keywrd/ keywrd,keyori local 14 keyori(1:320) = keywrd(1:320) 25 if (keywrd(i:i).eq.'('.or.keywrd(i:i).eq.')') then 26 keyori(i+n2:320) = keywrd(i:320-n2) 44 write(iun4,'(''('',a,'') show'')')keywrd(81:120) 46 write(iun4,'(''('',a,'') show'')')keywrd(121:160)
|
H A D | planky.f | 1 subroutine planky(npts1,npts2,npts3,keywrd,defau) argument 7 character*(*) keywrd local 24 if (keyi(keywrd,'CENTER',i)) then 41 if (keyi(keywrd,'LINE',i)) then 115 if (.not.keyr(keywrd,'EDGE',r(1))) then 122 if (.not.keyr(keywrd,'EDZ',r(3))) then 126 if (.not.keyr(keywrd,'EDY',r(2))) then 138 if (keyi(keywrd,'NPTSX',npts1)) then 141 if (keyi(keywrd,'NPTSY',npts2)) then 144 if (keyi(keywrd,'NPTSZ',npts3)) then [all …]
|
H A D | plhead.f | 5 character keywrd*320, keyori*320, title*80 local 10 common /keywrd/ keywrd,keyori local 32 write(iun4,'(''.pt '',a)')keywrd(1:80) 34 write(iun4,'(''.pt '',a)')keywrd(81:160) 42 write(iun4,'(''PU49,18;LB'',a,a,'';'')')keywrd(1:80),etx 43 write(iun4,'(''PU48,18;LB'',a,a,'';'')')keywrd(81:160),etx
|
H A D | occin.f | 3 character*320 keywrd,keyori,string local 4 common /keywrd/ keywrd,keyori local 9 i = index(keywrd(ind:320),'=') 10 i1 = index(keywrd(i+ind:320),'(') 11 i2 = index(keywrd(i+ind:320),')') 12 string(1:i2-i1-1) = keywrd(i+ind+i1:i+ind+i2-1)
|
H A D | wrinfo.f | 13 character keywrd*320, keyori*320 local 14 common /keywrd/ keywrd,keyori common 30 if (index(keywrd,'WRBAS=').ne.0) then 66 character keywrd*320, keyori*320 local 67 common /keywrd/ keywrd,keyori common 75 if (index(keywrd,'WRBAS=').ne.0) then
|
H A D | molden.f | 128 common /keywrd/ keywrd,keyori local 4468 xr = reada(keywrd,i1+4,len(keywrd)) 4473 xr = reada(keywrd,i1+4,len(keywrd)) 4478 xr = reada(keywrd,i1+4,len(keywrd)) 6780 if (molpot) keywrd = ' Molpot'//keywrd 6781 if (euclid) keywrd = ' Euclid'//keywrd 6784 if (bonds ) keywrd = ' Bonds'//keywrd 6785 if (doori ) keywrd = ' Orient'//keywrd 6787 if (atomic) keywrd = ' Atomic'//keywrd 6791 keywrd = tmpstr(1:16)//keywrd [all …]
|
H A D | oriin.f | 5 common /keywrd/ keywrd,keyori common 9 character*320 keywrd,keyori,string local 13 i1 = index(keywrd(i+1:320),'(') 14 i2 = index(keywrd(i+1:320),')') 15 string(1:i2-i1-1) = keywrd(i+i1+1:i+i2-1)
|
H A D | mpdum.f | 2 & keywrd,ichadd) argument 6 character*(*) keywrd local
|
H A D | den3d.f | 9 character keywrd*320, keyori*320 local 12 common /keywrd/ keywrd,keyori local 27 if (index(keywrd,'TRAN') .ne. 0 ) goto 100
|
H A D | espchrg.f | 6 character keywrd*320,keyori*320 local 7 common /keywrd/ keywrd,keyori local 50 if (keyi(keywrd,'NUMSURF',nsurf)) then 58 if (.not.keyr(keywrd,'PTDEN',den)) then 69 if (keyr(keywrd,'DIPX',dx).and.keyr(keywrd,'DIPY',dy).and. 70 & keyr(keywrd,'DIPZ',dz)) then 79 if (index(keywrd,'AXIS-X').ne.0) then 82 if (index(keywrd,'AXIS-Y').ne.0) then 85 if (index(keywrd,'AXIS-Z').ne.0) then 118 if (index(keywrd,'CHADD').ne.0) then [all …]
|
H A D | mpolefit.f | 2 & keywrd,ichadd) argument 60 character*(*) keywrd local 89 call setmp(keywrd) 93 if (.not.keyr(keywrd,'MPTOL',toll)) then 224 i = index(keywrd,'MPEQUIV') 226 i1 = index(keywrd(i+1:),'(') 228 i2 = index(keywrd(i+1:),')') 230 keyhlp = keywrd(i+i1+1:i+i2-1) 616 subroutine setmp(keywrd) argument 625 character*(*) keywrd local [all …]
|
H A D | rdgaus.f | 491 character keywrd*320, keyori*320 local 492 common /keywrd/ keywrd,keyori local 532 10 open(unit=iund,file=keywrd,access="direct", 571 12 open(unit=iund,file=keywrd(1:linlen(keywrd)),access="direct", 608 open(unit=iund,file=keywrd(1:linlen(keywrd)),access="stream") 996 character keywrd*320, keyori*320 local 997 common /keywrd/ keywrd,keyori common 1019 if (.not.opfil(21,keywrd(1:lenf),lenf,1,1,0)) then 1020 lstr = keywrd(1:lenf)//' non-existent'
|
/dports/astro/py-pykep/pykep-2.6/src/third_party/cspice/ |
H A D | dsktol.c | 13 /* Subroutine */ int dsktol_0_(int n__, integer *keywrd, doublereal *dpval) in dsktol_0_() argument 503 if (*keywrd < 1 || *keywrd > 6) { in dsktol_0_() 507 errint_("#", keywrd, (ftnlen)1); in dsktol_0_() 668 if (*keywrd < 1 || *keywrd > 6) { in dsktol_0_() 671 errint_("#", keywrd, (ftnlen)1); in dsktol_0_() 697 /* Subroutine */ int dsktol_(integer *keywrd, doublereal *dpval) in dsktol_() argument 699 return dsktol_0_(0, keywrd, dpval); in dsktol_() 702 /* Subroutine */ int dskgtl_(integer *keywrd, doublereal *dpval) in dskgtl_() argument 704 return dsktol_0_(1, keywrd, dpval); in dskgtl_() 707 /* Subroutine */ int dskstl_(integer *keywrd, doublereal *dpval) in dskstl_() argument [all …]
|
H A D | dskgtl_c.c | 50 void dskgtl_c ( SpiceInt keywrd, in dskgtl_c() argument 162 dskgtl_ ( (integer *) &keywrd, in dskgtl_c()
|
H A D | dskstl_c.c | 50 void dskstl_c ( SpiceInt keywrd, in dskstl_c() argument 187 dskstl_ ( (integer *) &keywrd, in dskstl_c()
|
/dports/astro/pykep/pykep-2.6/src/third_party/cspice/ |
H A D | dsktol.c | 13 /* Subroutine */ int dsktol_0_(int n__, integer *keywrd, doublereal *dpval) in dsktol_0_() argument 503 if (*keywrd < 1 || *keywrd > 6) { in dsktol_0_() 507 errint_("#", keywrd, (ftnlen)1); in dsktol_0_() 668 if (*keywrd < 1 || *keywrd > 6) { in dsktol_0_() 671 errint_("#", keywrd, (ftnlen)1); in dsktol_0_() 697 /* Subroutine */ int dsktol_(integer *keywrd, doublereal *dpval) in dsktol_() argument 699 return dsktol_0_(0, keywrd, dpval); in dsktol_() 702 /* Subroutine */ int dskgtl_(integer *keywrd, doublereal *dpval) in dskgtl_() argument 704 return dsktol_0_(1, keywrd, dpval); in dskgtl_() 707 /* Subroutine */ int dskstl_(integer *keywrd, doublereal *dpval) in dskstl_() argument [all …]
|
H A D | dskgtl_c.c | 50 void dskgtl_c ( SpiceInt keywrd, in dskgtl_c() argument 162 dskgtl_ ( (integer *) &keywrd, in dskgtl_c()
|
H A D | dskstl_c.c | 50 void dskstl_c ( SpiceInt keywrd, in dskstl_c() argument 187 dskstl_ ( (integer *) &keywrd, in dskstl_c()
|
/dports/cad/alliance/alliance/src/beh/src/ |
H A D | beh_vhdlname.c | 57 static char *keywrd [] = { local 118 beh_addtab (namtab, namealloc (keywrd [i]), NULL, 1, 1);
|
/dports/science/healpix/Healpix_3.50/src/idl/zzz_external/astron/ |
H A D | sxaddpar.pro | 203 keywrd = strmid(header,0,8) ;Header keywords 204 iend = where(keywrd eq 'END ',nfound) 216 keywrd = strmid(header,0,8) 217 iend = where(keywrd eq 'END ',nfound) 255 iloc = where(keywrd EQ loc, nloc) 256 if nloc EQ 0 then iloc = where(keywrd EQ 'HISTORY ', nloc) 274 iloc = where(keywrd[0:iend] EQ loc, nloc) 281 iloc = where(keywrd EQ 'COMMENT ', nloc) 282 if nloc Eq 0 then iloc = where(keywrd EQ 'HISTORY ', nloc) 301 ipos = where(keywrd eq nn,nfound) [all …]
|
/dports/www/orangehrm/orangehrm-4.9/symfony/plugins/orangehrmRecruitmentPlugin/web/css/ |
H A D | applyVacancySuccess.css | 80 .keywrd{
|