223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Changed the intent of input argument of dataset to inout

This commit is contained in:
Vitesh Shah 2018-11-20 11:54:51 +01:00
parent 2b96ea3da5
commit c0481307ee
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/HDF5_utilities.f90
View File

@ -619,7 +619,7 @@ subroutine HDF5_write_pReal1(dataset,loc_id,datasetName,parallel)
worldsize worldsize
implicit none implicit none
real(pReal), intent(out), dimension(:) :: dataset real(pReal), intent(inout), dimension(:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
@ -705,7 +705,7 @@ subroutine HDF5_write_pReal2(dataset,loc_id,datasetName,parallel)
worldsize worldsize
implicit none implicit none
real(pReal), intent(out), dimension(:,:) :: dataset real(pReal), intent(inout), dimension(:,:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
@ -791,7 +791,7 @@ subroutine HDF5_write_pReal3(dataset,loc_id,datasetName,parallel)
worldsize worldsize
implicit none implicit none
real(pReal), intent(out), dimension(:,:,:) :: dataset real(pReal), intent(inout), dimension(:,:,:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
@ -877,7 +877,7 @@ subroutine HDF5_write_pReal4(dataset,loc_id,datasetName,parallel)
worldsize worldsize
implicit none implicit none
real(pReal), intent(out), dimension(:,:,:,:) :: dataset real(pReal), intent(inout), dimension(:,:,:,:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
@ -963,7 +963,7 @@ subroutine HDF5_write_pReal5(dataset,loc_id,datasetName,parallel)
worldsize worldsize
implicit none implicit none
real(pReal), intent(out), dimension(:,:,:,:,:) :: dataset real(pReal), intent(inout), dimension(:,:,:,:,:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
@ -1049,7 +1049,7 @@ subroutine HDF5_write_pReal6(dataset,loc_id,datasetName,parallel)
worldsize worldsize
implicit none implicit none
real(pReal), intent(out), dimension(:,:,:,:,:,:) :: dataset real(pReal), intent(inout), dimension(:,:,:,:,:,:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
@ -1135,7 +1135,7 @@ subroutine HDF5_write_pReal7(dataset,loc_id,datasetName,parallel)
worldsize worldsize
implicit none implicit none
real(pReal), intent(out), dimension(:,:,:,:,:,:,:) :: dataset real(pReal), intent(inout), dimension(:,:,:,:,:,:,:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file
logical, intent(in), optional :: parallel logical, intent(in), optional :: parallel
@ -1218,7 +1218,7 @@ end subroutine HDF5_write_pReal7
subroutine HDF5_write_pInt1(dataset,loc_id,datasetName) subroutine HDF5_write_pInt1(dataset,loc_id,datasetName)
implicit none implicit none
integer(pInt), intent(out), dimension(:) :: dataset integer(pInt), intent(inout), dimension(:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file
@ -1254,7 +1254,7 @@ end subroutine HDF5_write_pInt1
subroutine HDF5_write_pInt2(dataset,loc_id,datasetName) subroutine HDF5_write_pInt2(dataset,loc_id,datasetName)
implicit none implicit none
integer(pInt), intent(out), dimension(:,:) :: dataset integer(pInt), intent(inout), dimension(:,:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file
@ -1290,7 +1290,7 @@ end subroutine HDF5_write_pInt2
subroutine HDF5_write_pInt3(dataset,loc_id,datasetName) subroutine HDF5_write_pInt3(dataset,loc_id,datasetName)
implicit none implicit none
integer(pInt), intent(out), dimension(:,:,:) :: dataset integer(pInt), intent(inout), dimension(:,:,:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file
@ -1326,7 +1326,7 @@ end subroutine HDF5_write_pInt3
subroutine HDF5_write_pInt4(dataset,loc_id,datasetName) subroutine HDF5_write_pInt4(dataset,loc_id,datasetName)
implicit none implicit none
integer(pInt), intent(out), dimension(:,:,:,:) :: dataset integer(pInt), intent(inout), dimension(:,:,:,:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file
@ -1362,7 +1362,7 @@ end subroutine HDF5_write_pInt4
subroutine HDF5_write_pInt5(dataset,loc_id,datasetName) subroutine HDF5_write_pInt5(dataset,loc_id,datasetName)
implicit none implicit none
integer(pInt), intent(out), dimension(:,:,:,:,:) :: dataset integer(pInt), intent(inout), dimension(:,:,:,:,:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file
@ -1434,7 +1434,7 @@ end subroutine HDF5_write_pInt6
subroutine HDF5_write_pInt7(dataset,loc_id,datasetName) subroutine HDF5_write_pInt7(dataset,loc_id,datasetName)
implicit none implicit none
integer(pInt), intent(out), dimension(:,:,:,:,:,:,:) :: dataset integer(pInt), intent(inout), dimension(:,:,:,:,:,:,:) :: dataset
integer(HID_T), intent(in) :: loc_id !< file or group handle integer(HID_T), intent(in) :: loc_id !< file or group handle
character(len=*), intent(in) :: datasetName !< name of the dataset in the file character(len=*), intent(in) :: datasetName !< name of the dataset in the file