Try this: program test implicit none real, dimension(2,2,2,2,2,2,2,2,2,2,2,2,2) :: Array1 Array1 = 0.0 print *, "hello world", Array1 stop end program test -- mark somers tel: +31715274437 mail: m.somers at chem.leidenuniv.nl web: https://www.universiteitleiden.nl/en/staffmembers/mark-somers