"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "fortran/module_netcdf4_nc_interfaces.f90" between
netcdf-fortran-4.4.4.tar.gz and netcdf-fortran-4.4.5.tar.gz

About: NetCDF (network Common Data Form) is a set of software libraries and machine-independent data formats that support the creation, access, and sharing of array-oriented scientific data (Fortran library).

module_netcdf4_nc_interfaces.f90  (netcdf-fortran-4.4.4):module_netcdf4_nc_interfaces.f90  (netcdf-fortran-4.4.5)
skipping to change at line 738 skipping to change at line 738
USE ISO_C_BINDING, ONLY: C_INT, C_CHAR USE ISO_C_BINDING, ONLY: C_INT, C_CHAR
Integer(C_INT), VALUE :: ncid, varid Integer(C_INT), VALUE :: ncid, varid
Integer(C_INT), Intent(INOUT) :: no_fill Integer(C_INT), Intent(INOUT) :: no_fill
Character(KIND=C_CHAR), Intent(INOUT) :: fill_value(*) Character(KIND=C_CHAR), Intent(INOUT) :: fill_value(*)
Integer(C_INT) :: nc_inq_var_fill Integer(C_INT) :: nc_inq_var_fill
End Function nc_inq_var_fill End Function nc_inq_var_fill
End Interface End Interface
!------------------------------- nc_inq_varnparams -----------------------------
-
!**** NOT a Netcdf C function. Added to nf_lib.c support Fortran interaces
Interface
Function nc_inq_varnparams(ncid, varid, nparams) BIND(C)
USE ISO_C_BINDING, ONLY: C_INT, C_SIZE_T
Integer(C_INT), VALUE :: ncid, varid
Integer(C_SIZE_T), Intent(INOUT) :: nparams
Integer(C_INT) :: nc_inq_nparams
End Function nc_inq_varnparams
End Interface
!------------------------------- nc_inq_var_szip ------------------------------ !------------------------------- nc_inq_var_szip ------------------------------
Interface Interface
Function nc_inq_var_szip(ncid, varid, options_mask, pixels_per_block) BIND(C) Function nc_inq_var_szip(ncid, varid, options_mask, pixels_per_block) BIND(C)
USE ISO_C_BINDING, ONLY: C_INT USE ISO_C_BINDING, ONLY: C_INT
Integer(C_INT), VALUE :: ncid, varid Integer(C_INT), VALUE :: ncid, varid
Integer(C_INT), Intent(INOUT) :: options_mask, pixels_per_block Integer(C_INT), Intent(INOUT) :: options_mask, pixels_per_block
Integer(C_INT) :: nc_inq_var_szip Integer(C_INT) :: nc_inq_var_szip
skipping to change at line 880 skipping to change at line 894
USE ISO_C_BINDING, ONLY: C_INT USE ISO_C_BINDING, ONLY: C_INT
Integer(C_INT), VALUE :: ncid, varid Integer(C_INT), VALUE :: ncid, varid
Integer(C_INT), Intent(INOUT) :: endiann Integer(C_INT), Intent(INOUT) :: endiann
Integer(C_INT) :: nc_inq_var_endian Integer(C_INT) :: nc_inq_var_endian
End Function nc_inq_var_endian End Function nc_inq_var_endian
End Interface End Interface
!------------------------------- nc_def_var_filter ------------------------
Interface
Function nc_def_var_filter(ncid, varid, id, nparams, params) BIND(C)
USE ISO_C_BINDING, ONLY: C_INT, C_SIZE_T
Integer(C_INT), VALUE :: ncid, varid, id
Integer(C_SIZE_T), VALUE :: nparams
Integer(C_INT) :: params(*)
Integer(C_INT) :: nc_def_var_filter
End Function nc_def_var_filter
End Interface
!------------------------------- nc_inq_var_filter -----------------------------
-----
Interface
Function nc_inq_var_filter(ncid, varid, id, nparams, params) BIND(C)
USE ISO_C_BINDING, ONLY: C_INT, C_SIZE_T
Integer(C_INT), VALUE :: ncid, varid
Integer(C_INT), Intent(INOUT) :: id
Integer(C_SIZE_T), Intent(INOUT) :: nparams
Integer(C_INT), Intent(INOUT) :: params(*)
Integer(C_INT) :: nc_inq_var_filter
End Function nc_inq_var_filter
End Interface
!------------------------------- nc_put_att ----------------------------------- !------------------------------- nc_put_att -----------------------------------
Interface Interface
Function nc_put_att(ncid, varid, name, xtype, nlen, op) BIND(C) Function nc_put_att(ncid, varid, name, xtype, nlen, op) BIND(C)
USE ISO_C_BINDING, ONLY: C_INT, C_CHAR, C_SIZE_T, C_PTR USE ISO_C_BINDING, ONLY: C_INT, C_CHAR, C_SIZE_T, C_PTR
Integer(C_INT), VALUE :: ncid, varid, xtype Integer(C_INT), VALUE :: ncid, varid, xtype
Integer(C_SIZE_T), VALUE :: nlen Integer(C_SIZE_T), VALUE :: nlen
Character(KIND=C_CHAR), Intent(IN) :: name(*) Character(KIND=C_CHAR), Intent(IN) :: name(*)
Type(C_PTR), VALUE :: op Type(C_PTR), VALUE :: op
 End of changes. 2 change blocks. 
0 lines changed or deleted 47 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)