Examples/fort2/code2.f

   1        PROGRAM P
   2        CALL YACSINIT()
   3        END
   4
   5        SUBROUTINE SERV1(compo,a,b,c)
   6        include 'calcium.hf'
   7        integer compo(2),nval
   8        real*8 tt,t0,t1,a,b,c
   9        write(6,*)a,b
  10        CALL cplDB(compo,CP_ITERATION,t0,t1,1,'PARAM',1,nval,tt,info)
  11        write(6,*)'info=',info
  12        write(6,*)'tt=',tt
  13        c=a+b
  14        return
  15        end