Changeset 36 for branches/petra/src/skplin.f90
- Timestamp:
- Feb 16, 2015, 6:21:09 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/petra/src/skplin.f90
r4 r36 1 1 !********************************************************************** 2 ! Copyright 1998 ,1999,2000,2001,2002,2005,2007,2008,2009,2010*2 ! Copyright 1998-2015 * 3 3 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, * 4 4 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann * … … 21 21 22 22 subroutine skplin(nlines,iunit) 23 ! i i23 ! i i 24 24 !***************************************************************************** 25 25 ! * … … 38 38 ! * 39 39 !***************************************************************************** 40 ! PS 2/2015: catch EOF condition so that we can 41 ! have optional parameters at end of list for compatibility 40 42 43 41 44 implicit none 42 45 43 integer :: i,iunit, nlines 46 integer, intent(in) :: nlines, iunit 47 integer :: i, icmdstat 44 48 45 49 do i=1,nlines 46 read(iunit,* )50 read(iunit,*,iostat=icmdstat) 47 51 end do 48 52 49 53 end subroutine skplin
Note: See TracChangeset
for help on using the changeset viewer.