Q1) The following program convert temperature unit form F to C and vice versa. Fill out the blanks Main Program Module PROGRAM Using Module MODULE 5) 1)----------- TunitConversion IMPLICIT NONE IMPLICIT NONE 6) CHARACTER UNIT REAL FUNCTION C (XI) REAL X IMPLICIT NONE WRITE(*.*)'Input Temperature Value REAL, INTENT(7) READ**) X c = (X1-32)*90/5 WRITEC *)'Input For C: END FUNCTION C 2)---------(**) UNIT REAL 8) ---------f(X1) IF (UNIT 3)-----------'F') THEN IMPLICIT NONE WRITE(*_*) c (X). .C REAL. INTENT(IN) XI ELSEIF (UNIT='C') THEN [=X1* 9.0/5 +32 WRITE(* *) (X). OF END FUNCTION 9) 4) END 10) ---------- TunitConversion END :: X1