File: format_09.f90

package info (click to toggle)
lfortran 0.60.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 58,412 kB
  • sloc: cpp: 173,406; f90: 80,491; python: 17,586; ansic: 9,610; yacc: 2,356; sh: 1,401; fortran: 895; makefile: 37; javascript: 15
file content (18 lines) | stat: -rw-r--r-- 472 bytes parent folder | download | duplicates (2) 
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