Changes from branches/petra/src/skplin.f90 at r36 to trunk/src/skplin.f90 at r4

File:

• trunk/src/skplin.f90 (modified) (3 diffs)

trunk/src/skplin.f90

@@ -1 +1 @@
 !**********************************************************************
-! Copyright 1998-2015                                                 *
+! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
@@ -21 +21 @@
 
 subroutine skplin(nlines,iunit)
-  !                 i      i  
+  !                    i      i
   !*****************************************************************************
   !                                                                            *
@@ -38 +38 @@
   !                                                                            *
   !*****************************************************************************
-  ! PS 2/2015: catch EOF condition so that we can 
-  ! have optional parameters at end of list for compatibility
 
-  
   implicit none
 
-  integer, intent(in)  :: nlines, iunit
-  integer :: i, icmdstat
+  integer :: i,iunit, nlines
 
   do i=1,nlines
-    read(iunit,*,iostat=icmdstat)
+    read(iunit,*)
   end do
-   
+
 end subroutine skplin