"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

---