Increase dimension of allsnrs() to 200 (as should have been done before).

This commit is contained in:
Joe Taylor 2023-05-02 14:38:47 -04:00
parent a7b489f373
commit 8ec78120a0

View File

@ -60,7 +60,7 @@ contains
character datetime*13,msg37*37 character datetime*13,msg37*37
character*37 allmessages(200) character*37 allmessages(200)
character*12 ctime character*12 ctime
integer allsnrs(100) integer allsnrs(200)
integer itone(NN) integer itone(NN)
integer itone_save(NN,MAX_EARLY) integer itone_save(NN,MAX_EARLY)
real f1_save(MAX_EARLY) real f1_save(MAX_EARLY)