Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations dencom on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: Levay87
  • Content: Threads
  • Order by date
  1. Levay87

    Where statement

    Hello, thanks a lot for your help. Now I have to apply rules. All (T) are marked become (X). All h(H) become (T) Why it does not run? Here is my code: program exercise10 implicit none character,dimension(3,3)::arr1=reshape((/"#","#","T","#","H","T","#","#","#"/),(/3,3/)) write(*,*)...
  2. Levay87

    Two dimensional character array

    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...

Part and Inventory Search

Back
Top