...an array called holder
subroutine readme (aString)
use L2Parameters
implicit none
character(len=60) :: aString,extension
integer::n,ios
print*,'Opened readme'
extension='/Volumes/TB5/Albedo/2005/'
open (unit=9,file=aString,status='old',iostat=ios)
! print*, ios
rewind 9
n=0
do...