function myf77(arg1,arg2)
      integer arg1
      double precision arg2,myf77
      myf77 = arg1*sqrt(arg2)
      print *, 'arg1=',arg1,'  arg2=',arg2, '  myf77=',myf77
      end