Named array constants can be created:
INTEGER, DIMENSION(3), & PARAMETER :: Unit_vec = (/1,1,1/) CHARACTER(LEN=*), DIMENSION(3), & PARAMETER :: lights = & (/'RED ','BLUE ','GREEN'/) REAL, DIMENSION(3,3), PARAMETER :: & unit_matrix = RESHAPE( & (/1,0,0,0,1,0,0,0,1/),(/3,3/))
In the second statement all strings must be same length.
For more information, click here