Examples/fort1/code2.f

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