science/aircraft-datcom: Unbreak build with GCC 10

Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
/wrkdirs/usr/ports/science/aircraft-datcom/work/aircraft-datcom-ed877bb/src/auxout.f:185:40:

168 |      1            TINF,RN,SRF,CBAR,BLRF,XCG,ZCG,DUM,
    |                                   2

......

185 |      1  TRA(78),TRA(76),TRA(79),TRA(80),O,P,Q,R,S,T,NN,NM)
    |                                        1

Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
/wrkdirs/usr/ports/science/aircraft-datcom/work/aircraft-datcom-ed877bb/src/auxout.f:187:39:

168 |      1            TINF,RN,SRF,CBAR,BLRF,XCG,ZCG,DUM,
    |                                   2

......

187 |      1  SBD(124),SBD(123),SBD(115),ANA,O,P,Q,R,S,T,NN,NM)
    |                                       1

Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
/wrkdirs/usr/ports/science/aircraft-datcom/work/aircraft-datcom-ed877bb/src/auxout.f:302:34:

168 |      1            TINF,RN,SRF,CBAR,BLRF,XCG,ZCG,DUM,
    |                          2

......

302 |      2 FACT(143),FACT(22),WBT(46),H,H,O,P,Q,R,S,T,NN,NM)
    |                                  1

Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
/wrkdirs/usr/ports/science/aircraft-datcom/work/aircraft-datcom-ed877bb/src/auxout.f:304:57:

167 |       CALL SWRITE(11,FOR,46,ICONT,1,FLC(I+2),ALT,VINF,PINF,
    |                                                 2

......

304 |      1 CALL SWRITE(6,FOR2,26,JCON,NALPHA,FLC(23),FACT(2),ANONE,
    |                                                         1

Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
/wrkdirs/usr/ports/science/aircraft-datcom/work/aircraft-datcom-ed877bb/src/auxout.f:311:33:

168 |      1            TINF,RN,SRF,CBAR,BLRF,XCG,ZCG,DUM,
    |                          2

......

311 |      2 STP(133),SWB(40),STP(111),H,H,O,P,Q,R,S,T,NN,NM)
    |                                 1

Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
/wrkdirs/usr/ports/science/aircraft-datcom/work/aircraft-datcom-ed877bb/src/auxout.f:313:57:

167 |       CALL SWRITE(11,FOR,46,ICONT,1,FLC(I+2),ALT,VINF,PINF,
    |                                                 2

......

313 |      1 CALL SWRITE(6,FOR2,26,JCON,NALPHA,FLC(23),SWB(12),ANONE,
    |                                                         1

Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
/wrkdirs/usr/ports/science/aircraft-datcom/work/aircraft-datcom-ed877bb/src/auxout.f:336:7:

167 |       CALL SWRITE(11,FOR,46,ICONT,1,FLC(I+2),ALT,VINF,PINF,
    |                                                      2

......

336 |      1 H,O,P,Q,R,S,T,Q,R,S,T,NN,NM)
    |       1

Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
/wrkdirs/usr/ports/science/aircraft-datcom/work/aircraft-datcom-ed877bb/src/auxout.f:338:7:

167 |       CALL SWRITE(11,FOR,46,ICONT,1,FLC(I+2),ALT,VINF,PINF,
    |                                                      2

......

338 |      1 H,O,P,Q,R,S,T,Q,R,S,T,NN,NM)
    |       1

Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
/wrkdirs/usr/ports/science/aircraft-datcom/work/aircraft-datcom-ed877bb/src/auxout.f:348:7:

167 |       CALL SWRITE(11,FOR,46,ICONT,1,FLC(I+2),ALT,VINF,PINF,
    |                                                      2

......

348 |      1 H,O,P,Q,R,S,T,Q,R,S,T,NN,NM)
    |       1

Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)

http://package18.nyi.freebsd.org/data/121amd64-default-PR244494/2020-06-10_18h04m44s/logs/errors/aircraft-datcom-0.0.20120723_5.log

PR: 246700