[GRASS-SVN] r70858 - grass/trunk/imagery/i.ortho.photo/i.ortho.elev

[svn_grass at osgeo.org]

Author: ychemin
Date: 2017-04-09 23:58:54 -0700 (Sun, 09 Apr 2017)
New Revision: 70858

Modified:
   grass/trunk/imagery/i.ortho.photo/i.ortho.elev/main.c
Log:
Some more comments

Modified: grass/trunk/imagery/i.ortho.photo/i.ortho.elev/main.c
===================================================================
--- grass/trunk/imagery/i.ortho.photo/i.ortho.elev/main.c	2017-04-09 22:00:21 UTC (rev 70857)
+++ grass/trunk/imagery/i.ortho.photo/i.ortho.elev/main.c	2017-04-10 06:58:54 UTC (rev 70858)
@@ -146,9 +146,12 @@
 	G_fatal_error(_("Target location [%s] not found\n"), location);
     }
 
+    /*Report the contents of the ELEVATION file as in the GROUP */
     if (print_flag->answer) {
+	/*If the content is empty report an error */
 	if(!I_get_group_elev(group, elev_layer, mapset_elev, location_elev, math_exp, units, nd)){
 		G_fatal_error(_("Cannot find default elevation map for target in group [%s]"),group);
+	/*If there is a content, report it as a message */
 	} else {
 		G_message("map:\t\t\t%s",elev_layer);
 		G_message("mapset:\t\t\t%s",mapset_elev);
@@ -176,7 +179,7 @@
 	G_switch_env();
 	/*Switch to alternate search path */
 	G_switch_search_path();
-	/*?*/
+	/*Source Env = 0 ; Target Env = 1 */
 	which_env = 0;
         /*Select the target environment */
 	select_target_env();
@@ -193,7 +196,7 @@
 	    select_current_env();
 	    G_fatal_error(_("Raster map <%s> not found"), elev_opt->answer);
 	}
-	/* load information from the ELEVATION file in the GROUP*/
+	/* load information from the ELEVATION file in the GROUP */
 	I_get_group_elev(group, elev_layer, mapset_elev, location_elev, math_exp, units, nd);
 	/*Modify ELEVATION file in source GROUP */
 	I_put_group_elev(group,elev_opt->answer,mapset_opt->answer,loc_opt->answer,