What does (8000,4) represent in the following command if Fortran? COMMON/QUAKE/QKE(8000,4),ERR(8000,4),YR(8000),DL(8000),TH(8000).

It is a declaration, not a command and it allocates space for 2 dimensional array “QKE” with 32,000 elements. Depending on other declarations it might be any of the possible data types and is accessible from any other program unit that has a “QUAKE” common block declared. You want to learn more abo…

Welcome to Fortran Discourse! Although the immediate question has been answered, it may be useful to say that we started replacing common blocks with modules about 30 years ago, and if you are trying to modernize some code, this is a good place to ask questions. Good luck

Others have answered the question. Here is a style suggestion. What is the physical meaning of the 8000 and the 4? Is 8000 the size of some grid? Then write integer, parameter :: ngrid = 8000 COMMON/QUAKE/QKE(ngrid,4),ERR(ngrid,4),YR(ngrid),DL(ngrid),TH(ngrid) It makes the code easier to understa…

What does (8000,4) represent?

Help

hayatullah January 7, 2022, 4:09am 5

Thank you Sir. Your comment was much helpful

Topic		Replies	Views
Question about the use of common blocks Help	62	5969	November 8, 2021
What do we mean by common?	25	832	October 19, 2021
How to replace weird common blocks with derived types Help	6	960	September 19, 2022
Converting COMMON; am I correct?	13	577	October 23, 2021
Description of old FORTRAN idioms Announcements	24	1811	January 13, 2025

What does (8000,4) represent?

Related topics