diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-05-05 18:55:29 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-05-05 18:55:29 (GMT) |
| commit | ad71dbe12c146592b238b8029fa1e3a8ef5e407f (patch) | |
| tree | d3d52915023cba808bfabb893940f55ab1d7eb80 | |
| parent | 1166efe1312f1406433350d3644edcb46b33e4c7 (diff) | |
| download | hdf5-ad71dbe12c146592b238b8029fa1e3a8ef5e407f.zip hdf5-ad71dbe12c146592b238b8029fa1e3a8ef5e407f.tar.gz hdf5-ad71dbe12c146592b238b8029fa1e3a8ef5e407f.tar.bz2 | |
[svn-r27019] Fixed print statement.
| -rw-r--r-- | fortran/src/H5test_kind.F90 | 4 |
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 *',& |