From ad71dbe12c146592b238b8029fa1e3a8ef5e407f Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Tue, 5 May 2015 13:55:29 -0500 Subject: [svn-r27019] Fixed print statement. --- fortran/src/H5test_kind.F90 | 4 +--- 1 file changed, 1 insertion(+), 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 *',& -- cgit v0.12