program giorgio
      implicit none
c INPUT
      integer N
      parameter (N=18)
      real x(N), y(N)       

      data x / 1190.,1455.,1550.,1730.,1745.,1770. 
     +       , 1900.,1920.,1960.,2295.,2335.,2490. 
     +       , 2720.,2710.,2530.,2900.,2760.,3010. /

      data y  / 1115.,1425.,1515.,1795.,1715.,1710. 
     +        , 1830.,1920.,1970.,2300.,2280.,2520. 
     +        , 2630.,2740.,2390.,2800.,2630.,2970. /

      real xmsg, ymsg
      data xmsg   /-999.0/
      data ymsg   /-999.0/
C OUTPUT
      real    rcoef, tval, xave, yave, rstd, yint
      integer nptxy, ier
C SUB
      call rcgraf (x,y,N,xmsg,ymsg            ! input
     *            ,rcoef,tval,nptxy           ! output
     *            ,xave,yave,rstd,yint,ier)   ! output
C OUT
      print *,"rcoef=", rcoef
      print *,"tval =", tval 
      print *,"yint =", yint 

      end