File: format_09.f90

package info (click to toggle)
lfortran 0.45.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 46,332 kB
  • sloc: cpp: 137,068; f90: 51,260; python: 6,444; ansic: 4,277; yacc: 2,285; fortran: 806; sh: 524; makefile: 30; javascript: 15
file content (18 lines) | stat: -rw-r--r-- 472 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
program format_09
    implicit none
    integer :: a(5),b(5),c(10)
    integer, parameter :: dp=kind(0d0)
    real(dp) :: d(5)
    a = [117,123,124,126,129]
    b = [1,2,3,4,5]
    c = 1
    d = [1._dp,1._dp,1._dp,1._dp,1._dp]
    print '(6(i6))', c
    print 10, "hello", a ,"world", b
  10  format(a,i10,i4,i5,i6,i7)
    print 20, 'String:', 3.1415926d0, &
    'Integer:', 42, &
    'Array:', d
  20 format(5x,a,d15.7//,5x,a,16x,i10//,5x,a//(5x,3d15.7))
  end program