function mdsopen (c,int )
  integer :: mdsopen
  character*1 :: c
  integer :: int

  mdsopen = 1

end function mdsopen

function mdsconnect (c, int)
  integer :: mdsconnect
  character*1 :: c
  integer :: int

  mdsconnect = 1

end function mdsconnect

function mdsclose (c, int)
  integer :: mdsclose
  character*1 :: c
  integer :: int

  mdsclose = 1

end function mdsclose