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