///
O XOQDOQ é um modelo computacional clássico de dispersão atmosférica, desenvolvido para calcular rotineiramente a razão entre concentração média de efluentes radioativos e a taxa de liberação da fonte de emissão (χ/Q), bem como a razão entre deposição média para localizações específicas e para distâncias radiais padrões à fonte de emissão (D/Q). Ele foi escrito em uma linguagem científica bastante popular nas décadas de 1970 e 1980, conhecida por sua eficiência em cálculos numéricos e processamento de matrizes.
Observe o trecho a seguir, retirado de uma das rotinas do código-fonte do XOQDOQ a seguir:
SUBROUTINE ANNUAL
C
C--- SUB ANNUAL
C-----------------------------------------------------------------------
COMMON/COMM /DEPAD3(16,14,7,3)
COMMON/COMM0/DPLTAD(16,14,7,3)
COMMON/COMM1/ XQ(16,14,7), EFF(16,14,7)
COMMON/COMM2/ FREQ(16,14,7), SAVEQ(5,30,5)
COMMON/COMM3/DIST(16,10), HT(16,10), KDIR(5,30), PTDIST(5,30)
1 ,TITLE(5,20), FQ(14,7), TITLPT(5,4), KOPT(80)
2 ,BDY(16), DMX(16), XMX(16), COMP(16), FORD(14)
3 ,UAVE(14), IPURGE(5), RLSID(5), NPOINT(5), DECAYS(3)
4 ,W, DIA, HS, WINDHT, D, A, Q, PLEV, COR(7), XPO(1764)
5 ,UGU,UGS,UES,UEU,URE,C,NDIR,IEX,NPTYPE
6 ,FQ15(100),NSTA,NUM,NDIS,UMAX(14),XQ15(100),NVEL,
7 TAF(16,22),PTAF(5,30)
DIMENSION XQS(16,11),FS(16),SAVE(10),WORD(2)
1 ,SSMO(16,10),XALL(16,22),XSMA(16,22),R(22),HA(16,10)
COMMON /DUMDUM/I8S(16,14,7),I6S(16,14,7),I3S(16,14,7)
DATA R/.25,.5,.75,1.,1.5,2.,2.5,3.,3.5,4.,4.5,5.,7.5,10.,15.,20.
X,25.,30.,35.,40.,45.,50./
CHARACTER WORD*4
DATA WORD/' ',' ','UN'/
Z0=0.0
IF(KOPT(75).EQ.1) WRITE(6,121)
121 FORMAT('1CHECK ANNUAL'/'0')
DO 3000 ITHRU=1,3
DECAY = DECAYS(ITHRU)
HFL=ABS(DECAY)
IF(HFL.LT.1.0E-10) GOTO 3000Assinale a opção correta.