Examples/fort1/code1.f

   1        SUBROUTINE SERV1(compo,a,b,c)
   2        include 'calcium.hf'
   3        integer compo(2)
   4        real*8 tt,a,b,c
   5        write(6,*)a,b
   6        tt=125.45
   7        CALL cpeDB(compo,CP_ITERATION,0.,1,'PARAM',1,tt,info)
   8        write(6,*)'info=',info
   9        c=a+b
  10        return
  11        end