Changeset 22097
- Timestamp:
- 09/17/17 16:42:46 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/modules/FourierLoveCorex/love_numbers.f90
r22059 r22097 224 224 !write(101,fmt='(A19, 10X,A2,I3,A1,I3)',ADVANCE='NO'), repeat(char(8),19),'l=',deg,'/',degmax 225 225 if (display) then 226 write(*,fmt='(A 23, 10X,A2,I5,A1,I5)',ADVANCE='NO'), repeat(char(8),23),'l=',deg,'/',degmax226 write(*,fmt='(A10,A2,I5,A1,I5)',ADVANCE='NO'),repeat(char(32),10),'l=',deg,'/',degmax 227 227 endif 228 228
Note:
See TracChangeset
for help on using the changeset viewer.