"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "fortran/nf_nc4.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).

nf_nc4.f90  (netcdf-fortran-4.4.4):nf_nc4.f90  (netcdf-fortran-4.4.5)
skipping to change at line 1801 skipping to change at line 1801
cstatus = nc_inq_var_endian(cncid, cvarid, cendiann) cstatus = nc_inq_var_endian(cncid, cvarid, cendiann)
If (cstatus == NC_NOERR) Then If (cstatus == NC_NOERR) Then
endiann = cendiann endiann = cendiann
EndIf EndIf
status = cstatus status = cstatus
End Function nf_inq_var_endian End Function nf_inq_var_endian
!-------------------------------- nf_def_var_filter ---------------------------
Function nf_def_var_filter( ncid, varid, filterid, nparams, params) RESULT(stat
us)
! define variable filter
USE netcdf4_nc_interfaces
Implicit NONE
Integer, Intent(IN) :: ncid, varid, filterid, nparams
Integer, Intent(IN) :: params(*)
Integer :: status
Integer(C_INT) :: cncid, cvarid, cfilterid, cstatus
Integer(C_SIZE_T) :: cnparams
cncid = ncid
cvarid = varid-1
cfilterid = filterid
cnparams = nparams
cstatus = nc_def_var_filter(cncid, cvarid, cfilterid, cnparams, params)
status = cstatus
End Function nf_def_var_filter
!-------------------------------- nf_inq_var_filter ----------------------------
-
Function nf_inq_var_filter(ncid, varid, filterid, nparams, params) RESULT(statu
s)
! get filter variables
USE netcdf4_nc_interfaces
Implicit NONE
Integer, Intent(IN) :: ncid, varid
Integer, Intent(OUT) :: filterid, nparams
Integer, Intent(OUT) :: params(*)
Integer :: status
Integer(C_INT) :: cncid, cvarid, cstatus, cstatus1, cfilterid
Integer(C_SIZE_T) :: cnparams
Integer(C_INT), ALLOCATABLE :: cparams(:)
cncid = ncid
cvarid = varid-1
params(1) = 0
cstatus1 = nc_inq_varnparams(cncid, cvarid, cnparams)
If (cstatus1 == NC_NOERR) Then
ALLOCATE(cparams(cnparams))
Else
ALLOCATE(cparams(1))
EndIf
cstatus = nc_inq_var_filter(cncid, cvarid, cfilterid, cnparams, cparams)
If (cstatus == NC_NOERR) Then
filterid = cfilterid
nparams = cnparams
If (cnparams > 0) Then
params(1:nparams) = cparams(1:nparams)
EndIf
EndIf
status = cstatus
End Function nf_inq_var_filter
!--------------------------------- nf_put_att -------------------------------- !--------------------------------- nf_put_att --------------------------------
Function nf_put_att(ncid, varid, name, xtype, nlen, value) RESULT(status) Function nf_put_att(ncid, varid, name, xtype, nlen, value) RESULT(status)
! Write global attribute of any type. We use a C character ! Write global attribute of any type. We use a C character
! string as the dummy arguments for the values ! string as the dummy arguments for the values
USE netcdf4_nc_interfaces USE netcdf4_nc_interfaces
Implicit NONE Implicit NONE
 End of changes. 1 change blocks. 
0 lines changed or deleted 74 lines changed or added

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