Corrected para.out output for psf and handle of Sersic in shapemodel

src/f_shape.c

@@ -125,6 +125,7 @@ void    f_shape( long int *istart,
                         &liste[i].z, &liste[i].mag, 
                         &liste[i].var1, &liste[i].var2, &dummy);
            if( n_scan != 10 ) e_scan = 1;
+	   liste[i].type=4;
         }
         else
         {

src/r_observ.c

@@ -90,6 +90,7 @@ void r_observ(FILE *IN, FILE *OUT)
         {
             sscanf(third, "%d%s", &O.setseeing, O.psffile);
             if (O.setseeing) {O.setseeing=3;}
+	    fprintf(OUT, "\t%s\t\t%d %s\n", second, O.setseeing, O.psffile);
         }
         else if (!strcmp(second, "rbfsig"))
         {