summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-05-05 18:55:29 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-05-05 18:55:29 (GMT)
commitad71dbe12c146592b238b8029fa1e3a8ef5e407f (patch)
treed3d52915023cba808bfabb893940f55ab1d7eb80
parent1166efe1312f1406433350d3644edcb46b33e4c7 (diff)
downloadhdf5-ad71dbe12c146592b238b8029fa1e3a8ef5e407f.zip
hdf5-ad71dbe12c146592b238b8029fa1e3a8ef5e407f.tar.gz
hdf5-ad71dbe12c146592b238b8029fa1e3a8ef5e407f.tar.bz2
[svn-r27019] Fixed print statement.
-rw-r--r--fortran/src/H5test_kind.F904
1 files changed, 1 insertions, 3 deletions
diff --git a/fortran/src/H5test_kind.F90 b/fortran/src/H5test_kind.F90
index f12f430..7c5a6d6 100644
--- a/fortran/src/H5test_kind.F90
+++ b/fortran/src/H5test_kind.F90
@@ -133,7 +133,6 @@ WRITE(*,'(40(A,/))') &
'! COPYRIGHT',&
'! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *',&
'! Copyright by The HDF Group. *',&
-'! Copyright by the Board of Trustees of the University of Illinois. *',&
'! All rights reserved. *',&
'! *',&
'! This file is part of HDF5. The full HDF5 copyright notice, including *',&
@@ -324,7 +323,7 @@ WRITE(*,'(40(A,/))') &
! with the Fortran 90/95 APIs codes which could never handle rank 15 array sizes.
OPEN(11,FILE='H5_KINDff.F90')
-WRITE(*,'(40(A,/))') &
+ WRITE(11,'(40(A,/))') &
'!****h* ROBODoc/H5_KINDff.F90',&
'!',&
'! NAME',&
@@ -338,7 +337,6 @@ WRITE(*,'(40(A,/))') &
'! COPYRIGHT',&
'! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *',&
'! Copyright by The HDF Group. *',&
-'! Copyright by the Board of Trustees of the University of Illinois. *',&
'! All rights reserved. *',&
'! *',&
'! This file is part of HDF5. The full HDF5 copyright notice, including *',&