Lines Matching refs:arclen
53 real*8 arclen,exang local
121 arclen = 0.0d0
424 arclen = arclen + gr(k)*arcsum
427 if (arclen .eq. 0.0d0) goto 170
472 area = ib*pix2 + exang + arclen
526 real*8 arclen,exang local
616 arclen = 0.0d0
693 arclen = arclen + gr(k)*arcsum
1000 arclen = arclen + gr(k)*arcsum
1014 if (arclen .eq. 0.0d0) goto 170
1059 area = ib*pix2 + exang + arclen