anchor.diff:  !  --------------------------------------------------------------------------
   
   ! ------- Modules -------
  -!JOY adding iso_c_binding
  -      use iso_c_binding
         use parkind, only : im => kind_im, rb => kind_rb
         use rrlw_wvn
         use rrtmg_lw_setcoef, only: lwatmref, lwavplank, lwavplankderiv
  
positive.code:       contains
  
  ! **************************************************************************
        subroutine rrtmg_lw_ini(cpdair) bind(c, name='rrtmg_longwave_init')
  ! **************************************************************************
  !
  !  Original version:       Michael J. Iacono; July, 1998
  
negative.code:       use rrlw_tbl, only: ntbl, tblint, pade, bpade, tau_tbl, exp_tbl, tfn_tbl
        use rrlw_vsn, only: hvrini, hnamini
  
        real(kind=rb), intent(in) :: cpdair     ! Specific heat capacity of dry air
                                                ! at constant pressure at 273 K
                                                ! (J kg-1 K-1)
  
  