Searched refs:isysu (Results 1 – 5 of 5) sorted by relevance
/dports/science/healpix/Healpix_3.50/src/f90/mod/ |
H A D | coord_v_convert.f90 | 141 Character(len=20) :: isysu ! Input system, uppercase local 145 isysu = trim(strupcase(isys)) 151 if (trim(isysu) /= 'E') then 152 if (trim(isysu) == 'Q' .or. trim(isysu) == 'C') then 154 elseif (trim(isysu) == 'G') then 161 print*,' unknown input coordinate system: '//trim(isysu)
|
/dports/astro/py-pykep/pykep-2.6/src/third_party/cspice/ |
H A D | xfmsta.c | 55 char isysu[40], osysu[40]; in xfmsta_() local 839 ljucrs_(&c__0, icosys, isysu, icosys_len, (ftnlen)40); in xfmsta_() 847 isys = isrchc_(isysu, &c__6, cosys, (ftnlen)40, (ftnlen)40); in xfmsta_()
|
/dports/astro/pykep/pykep-2.6/src/third_party/cspice/ |
H A D | xfmsta.c | 55 char isysu[40], osysu[40]; in xfmsta_() local 839 ljucrs_(&c__0, icosys, isysu, icosys_len, (ftnlen)40); in xfmsta_() 847 isys = isrchc_(isysu, &c__6, cosys, (ftnlen)40, (ftnlen)40); in xfmsta_()
|
/dports/print/texlive-base/texlive-20150521-source/utils/pmx/pmx-2.7.0/ |
H A D | pmxab.c | 925 static integer nbari[125], nbars[125], iinst, isysd, numit, isyst, isysu, in MAIN__() local 2141 isysu = ipoe[iupord - 1]; in MAIN__() 2144 do_lio(&c__3, &c__1, (char *)&isysu, (ftnlen)sizeof(integer)); in MAIN__() 2148 do_lio(&c__3, &c__1, (char *)&isysu, (ftnlen)sizeof(integer)); in MAIN__() 2153 if (poe0[isysu - 1] < poebar0) { in MAIN__() 2159 if (isysu == isysd || nbars0[isysd - 1] == 1 || poe0[isysd - in MAIN__() 2166 if (isyst == isysu) { in MAIN__() 2189 do_lio(&c__3, &c__1, (char *)&isysu, (ftnlen)sizeof( in MAIN__() 2199 do_lio(&c__3, &c__1, (char *)&isysu, (ftnlen)sizeof( in MAIN__()
|
H A D | pmx270.for | 1008 isysu = ipoe(iupord) 1009 print*,'isysu=',isysu 1010 write(15,*)'isysu=',isysu 1012 c Skip if system isysu has poe0 < avg or isysd has poe0 > avg 1014 if (poe0(isysu).lt.poebar0) go to 1 1017 if (isysu.eq.isysd .or. nbars0(isysd).eq.1 1021 if (isyst .eq. isysu) then 1038 * isysu,isysd,devnorm0 1040 * isysu,isysd,devnorm0
|