Beautify

examples/iconoce_hl.f90

@@ -371,7 +371,7 @@ PROGRAM iconoce
 
   ! end block checkpoint_restart_time_intervals
 
-  call printEventGroup(outputEvents)
+  CALL printEventGroup(outputEvents)
 
   !________________________________________________________________________________________________
   !

examples/mo_event_group.f90

@@ -53,7 +53,6 @@ CONTAINS
     CLASS is (t_event_item)
       WRITE(tmp,'(a,a,a)') 'event = <', TRIM(v%event%eventName), '>'
       string = TRIM(tmp)
-      write(0,*) 'LK DEBUG: t_event string ', string
     CLASS default
       string = TRIM(this%t_generic_linked_list_item%print_list_item())
     END SELECT
@@ -127,7 +126,7 @@ CONTAINS
     CLASS(t_generic_linked_List_item), POINTER :: p
 
     p => this%event_list%first()
-    IF (.not. associated(p)) then
+    IF (.NOT. ASSOCIATED(p)) THEN
       PRINT *, 'First list item is not associated'
       STOP
     ENDIF