Hello,
I would like to define a two dimensional character array.
My program does not run! Please help me.
program exercise10
implicit none
character(1), dimension(3,3)::arr1=(/(/"a","b","c"/),(/"a","b","c"/),(/"a","b","c"/)/)
write(*,*) "Exersice10: ", arr1
end program exercise10
I would like to define a two dimensional character array.
My program does not run! Please help me.
program exercise10
implicit none
character(1), dimension(3,3)::arr1=(/(/"a","b","c"/),(/"a","b","c"/),(/"a","b","c"/)/)
write(*,*) "Exersice10: ", arr1
end program exercise10