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       if (A .gt. 0) then
0005       call cal1(A - 1, B, C)
0006       endif
0007       end subroutine cal2
0008 
0009       subroutine cal1(A, B, C)
0010       real*8 A,B,C
0011 100   call cal2(A, B, C)
0012 102   call cal3(A, B, C)
0013       return
0014       end subroutine cal1
0015 
0016       INCLUDE 'b.f'
0017       INCLUDE 'external.f'