I need the answer quickly

QI) 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 (X1) REAL:X IMPLICIT NONE WRITE(**)'Input Temperature Value: REAL, INTENT(7) ------------) :: XI READ(**) X C = (X1-32)*9.0/5 WRITE(*. *)'Input For C: END FUNCTION 2)-.-.-.(**) UNIT REAL 8) ---------- f(XI) IF (UNIT 3)------------'F') THEN IMPLICIT NONE WRITE(**) c (X).' '.'C' REAL, INTENT(IN) :: X1 ELSEIF (UNITE='C') THEN f=X1* 9.0/5 +32 WRITE(**) f(X).' '.'F' END FUNCTION 9) 4) --- ------ END 10) - ----- TunitConversion END