Arrays can be initialised
INTEGER, DIMENSION(4) :: solution = (/2,3,4,5/) CHARACTER(LEN=*), DIMENSION(3) :: & lights = (/'RED ','BLUE ','GREEN'/)
In the second statement all strings must be same length.
Named array constants may also be created:
INTEGER, DIMENSION(3), PARAMETER :: & Unit_vec = (/1,1,1/) REAL, DIMENSION(3,3), PARAMETER :: & unit_matrix = & RESHAPE((/1,0,0,0,1,0,0,0,1/),(/3,3/))
For more information, click here
Now try this question