Searched refs:levar1 (Results 1 – 2 of 2) sorted by relevance
/dports/print/texlive-base/texlive-20150521-source/utils/pmx/pmx-2.7.0/ |
H A D | pmx270.for | 4300 common /comarp/ narp,tar(8),ivar1(8),ipar1(8),levar1(8),ncmar1(8), 11399 common /comarp/ narp,tar(8),ivar1(8),ipar1(8),levar1(8),ncmar1(8), 15263 common /comarp/ narp,tar(8),ivar1(8),ipar1(8),levar1(8),ncmar1(8), 15829 common /comarp/ narp,tar(8),ivar1(8),ipar1(8),levar1(8),ncmar1(8), 19619 common /comarp/ narp,tar(8),ivar1(8),ipar1(8),levar1(8),ncmar1(8), 21375 levar1(narp) = nolev 21401 levbot = min(levar1(iarp),nolev)-ncm+3 21402 invert = abs(levar1(iarp)-nolev)+1 21408 levbot = -nint(2*xinsnow)+3+levar1(iarp)-ncmar1(iarp) 21410 c print*,'xinsnow,levar1,ncmar1,levbot,nolev,ncm:' [all …]
|
H A D | pmxab.c | 505 integer ivar1[8], ipar1[8], levar1[8], ncmar1[8]; member 33443 comarp_1.levar1[comarp_1.narp - 1] = *nolev; in putarp_() 33481 i__1 = comarp_1.levar1[iarp - 1]; in putarp_() 33483 invert = (i__1 = comarp_1.levar1[iarp - 1] - *nolev, abs(i__1)) + 1; in putarp_() 33490 levbot = -i_nint(&r__1) + 3 + comarp_1.levar1[iarp - 1] - in putarp_()
|