File indexing completed on 2024-11-24 05:05:28 

0001       subroutine cal2(A, B, C)
0002       real*8 A,B,C
0003       C = B - A
0004       end subroutine cal2
0005 
0006       subroutine cal1(A, B, C)
0007       real*8 A,B,C
0008       if (A .gt. 0) then
0009       call calme(A - 1, B, C)
0010       endif
0011 100   call cal2(A, B, C)
0012       A = cal_f(A)
0013       return
0014       end subroutine cal1
0015 
0016       INCLUDE 'b.f'
0017 
0018       function cal_f(A)
0019       real*8 A
0020       A = 1
0021       end function cal_f