EZspline_2NetCDF


interface EZspline_2NetCDF
!
! Save data in netCDF file 'filename'. To save an EZspline1,2,3 object use
! EZspline_save method.
!
subroutine EZspline_2NetCDF_array3_r8(n1, n2, n3, x1, x2, x3, f, filename, ier)
use EZspline_obj
use EZcdf
implicit none
integer, intent(in) :: n1, n2, n3
real(ezspline_r8), intent(in) :: x1(:), x2(:), x3(:), f(:, :, :)
character*(*), intent(in) :: filename
integer, intent(out) :: ier
end subroutine EZspline_2NetCDF_array3_r8

subroutine EZspline_2NetCDF_array2_r8(n1, n2, x1, x2, f, filename, ier)
use EZspline_obj
use EZcdf
implicit none
integer, intent(in) :: n1, n2
real(ezspline_r8), intent(in) :: x1(:), x2(:), f(:,:)
character*(*), intent(in) :: filename
integer, intent(out) :: ier
end subroutine EZspline_2NetCDF_array2_r8

subroutine EZspline_2NetCDF1_r8(n1, x1, f, filename, ier)
use EZspline_obj
use EZcdf
implicit none
integer, intent(in) :: n1
real(ezspline_r8), intent(in) :: x1(:), f(:)
character*(*), intent(in) :: filename
integer, intent(out) :: ier
end subroutine EZspline_2NetCDF1_r8

subroutine EZspline_2NetCDF_cloud3_r8(n, x1, x2, x3, f, filename, ier)
use EZspline_obj
use EZcdf
implicit none
integer, intent(in) :: n
real(ezspline_r8), intent(in) :: x1(:), x2(:), x3(:), f(:)
character*(*), intent(in) :: filename
integer, intent(out) :: ier
end subroutine EZspline_2NetCDF_cloud3_r8

subroutine EZspline_2NetCDF_cloud2_r8(n, x1, x2, f, filename, ier)
use EZspline_obj
use EZcdf
implicit none
integer, intent(in) :: n
real(ezspline_r8), intent(in) :: x1(:), x2(:), f(:)
character*(*), intent(in) :: filename
integer, intent(out) :: ier
end subroutine EZspline_2NetCDF_cloud2_r8

subroutine EZspline_2NetCDF_array3_r4(n1, n2, n3, x1, x2, x3, f, filename, ier)
use EZspline_obj
use EZcdf
implicit none
integer, intent(in) :: n1, n2, n3
real(ezspline_r4), intent(in) :: x1(:), x2(:), x3(:), f(:, :, :)
character*(*), intent(in) :: filename
integer, intent(out) :: ier
end subroutine EZspline_2NetCDF_array3_r4

subroutine EZspline_2NetCDF_array2_r4(n1, n2, x1, x2, f, filename, ier)
use EZspline_obj
use EZcdf
implicit none
integer, intent(in) :: n1, n2
real(ezspline_r4), intent(in) :: x1(:), x2(:), f(:,:)
character*(*), intent(in) :: filename
integer, intent(out) :: ier
end subroutine EZspline_2NetCDF_array2_r4

subroutine EZspline_2NetCDF1_r4(n1, x1, f, filename, ier)
use EZspline_obj
use EZcdf
implicit none
integer, intent(in) :: n1
real(ezspline_r4), intent(in) :: x1(:), f(:)
character*(*), intent(in) :: filename
integer, intent(out) :: ier
end subroutine EZspline_2NetCDF1_r4

subroutine EZspline_2NetCDF_cloud3_r4(n, x1, x2, x3, f, filename, ier)
use EZspline_obj
use EZcdf
implicit none
integer, intent(in) :: n
real(ezspline_r4), intent(in) :: x1(:), x2(:), x3(:), f(:)
character*(*), intent(in) :: filename
integer, intent(out) :: ier
end subroutine EZspline_2NetCDF_cloud3_r4

subroutine EZspline_2NetCDF_cloud2_r4(n, x1, x2, f, filename, ier)
use EZspline_obj
use EZcdf
implicit none
integer, intent(in) :: n
real(ezspline_r4), intent(in) :: x1(:), x2(:), f(:)
character*(*), intent(in) :: filename
integer, intent(out) :: ier
end subroutine EZspline_2NetCDF_cloud2_r4

end interface


Send comments about this document to pletzer@pppl.gov. Tue Apr 24 14:01:03 2007