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

0001       subroutine cal3(A,B,C)
0002       real*8 A,B,C
0003       C = A - B
0004       end subroutine cal3
0005