Home
last modified time | relevance | path

Searched refs:isysu (Results 1 – 5 of 5) sorted by relevance

/dports/science/healpix/Healpix_3.50/src/f90/mod/
H A Dcoord_v_convert.f90141 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 Dxfmsta.c55 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 Dxfmsta.c55 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 Dpmxab.c925 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 Dpmx270.for1008 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