	       k820309    Y
          11.1        ¨³ÌQ                                                                                                           
       diag42_mod.F DIAG42_MOD       	       DIAG42 ZERO_DIAG42 WRITE_DIAG42 INIT_DIAG42 CLEANUP_DIAG42 PD42 ND42 LD42 AD42                                                                                                    24           @ @                                                      @ @                                                   @ @                                                	                &                   &                   &                   &                                           #         @                                                                                                                                                  #         @                                                     #         @                                                     #WRITE_DIAG42%TINY    #WRITE_DIAG42%DBLE 	                                                                                                                                                                     @                                 TINY               @                            	     DBLE #         @                                  
                   #INIT_DIAG42%MIN                                                                                                                                       @                                 MIN #         @                                                     #CLEANUP_DIAG42%ALLOCATED                  @                                 ALLOCATED               fn#fn     À   _   b   uapp(DIAG42_MOD      r       PD42    ‘  @       ND42    Ñ  @       LD42      Ô       AD42    å  ¤       DIAG42    ‰  H       ZERO_DIAG42    Ñ  
      WRITE_DIAG42 "   Û  =      WRITE_DIAG42%TINY "     =      WRITE_DIAG42%DBLE    U  Ò       INIT_DIAG42     '  <      INIT_DIAG42%MIN    c  f       CLEANUP_DIAG42 )   É  B      CLEANUP_DIAG42%ALLOCATED 