Program a : coriol

      program proga
      implicit none
      
      real ff(4,7)
      integer i

      call coriol(ff,200000.0,5,5,4,7)
      print *,'Here is the array containing the Coriolis parameter', 
     * ' for the grid:'
      
      do i=1,7
         print *,ff(1,i),ff(2,i),ff(3,i),ff(4,i)
      enddo
    
      stop
      end