Osing < msing references out-of-bounds matrix location

[matt-pharr]

In gpout.f:

               matmo = TRANSPOSE(localcoup_out(i,:,:))
               CALL check( nf90_put_var(mncid,cl_id(i),RESHAPE(
     $              (/REAL(matmo), AIMAG(matmo)/),(/tmpert,osing,2/))))
               CALL check( nf90_put_var(mncid,rl_id(i),RESHAPE(
     $              (/REAL(localcoup_out_bvecs(i,:,:)),
     $              AIMAG(localcoup_out_bvecs(i,:,:))/),
     $              (/tmpert,osing,2/))))
               CALL check( nf90_put_var(mncid,sl_id(i),
     $              localcoup_out_vals(i,:)))
            ENDIF

The line matmo = TRANSPOSE(localcoup_out(i,:,:)) throws the error:
Fortran runtime error: Index '1' of dimension 1 of array 'localcoup_out' outside of expected range (1:0)

localcoup_out does not seem to be allocated anywhere... no time atm to dig into this but I can fix it once conference season grind is done.

[matt-pharr]

Using this equilibrium:

[matt-pharr]

I added a line to allocate $ localcoup_out(nsingcoup, tmpert, osing), and that seemed to fix the problem, will be in the RDCON singcoup branch.