Changeset 114 for trunk/SRC/ReadWrite/writebat.pro
- Timestamp:
- 06/19/06 16:14:56 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ReadWrite/writebat.pro
r106 r114 16 16 ;- 17 17 PRO writebat, zbat, filename 18 ; 19 compile_opt idl2, strictarrsubs 20 ; 18 21 ; basic checks 19 22 IF n_params() NE 2 THEN BEGIN … … 61 64 iformat = string('(', il3+2, 'i3)') 62 65 FOR jj = jpj2-1, 0, -1 DO BEGIN 63 zbati (0:il3) = zbat(il1:il2, jj)66 zbati[0:il3] = zbat[il1:il2, jj] 64 67 printf, iunit, FORMAT = iformat, jj+1, zbati 65 68 END … … 77 80 iformat = string('(', il3+2, 'i3)') 78 81 FOR jj = jpj2-1, 0, -1 DO BEGIN 79 zbati2 (0:irest-1)= 080 zbati2 (0:il3) = zbat(il1:il2, jj)82 zbati2[0:irest-1] = 0 83 zbati2[0:il3] = zbat[il1:il2, jj] 81 84 printf, iunit, FORMAT = iformat, jj+1, zbati2 82 85 END
Note: See TracChangeset
for help on using the changeset viewer.